DES PROGRAMMES POUR VOTRE ORDINATEUR : APPLE II et lie 
. CANON X-07 . CASIO FX 702-P . COMMODORE 64 et VIC 20 . 
GOUPIL . HEWLETT PACKARD HP41 . MULTITECH MP-FII . 
ORIC 1 . SHARP MZ, PC 1211, PC 1500 . SINCLAIR ZX 81 . TANDY 
TRS 80 . TEXAS Ti-99/4A . THOMSON T07 



LES CONCOURS PERMANENTS : 

10 000 francs de prix au meilleur programme CHAQUE MOIS. 
1 voyage en Caiifomie pour le meilleur logiciel CHAQUE TR1- 
MESTRE (Reglement en page interieure) 



Mini-logo 



Joel GADRAT nous propose cette 
semame ce orooramme aui s adres 
gr non s^utement a cetix qui con- 
naissei ' ,-i langa-ge LOGD, mai? 
Cg^emertt a ceux qui veulent s'ini- 
tier a cetie methode de programma- 
tion souple et agreable 
Nous attendons vos programmes 
(vos procedures) dans ce langage 



REM I 
REM I 



ainsi que es ameliorations du pro- 
Diamine lui-meme Peuvent etre ra- 
(outes qm'lques pnmilifs coin me 
loclore d> donnees. ^ers^icns 
aritnmetiques, etc. ou encore des 
adaptations a d'autres ordinateurs 
Le mini-logo de ce sympathique lec- 
teur deviendra-t-il le logo de I'hippo- 
campe ? 

I5-> X - 7:V - 7:Z - O:C07. - 7:COX 

(0) - 7: G0SU8 30 
16'J RETURN :" 

IV) REM -Acquisition Hfs ordres 



REM ••«•••••. i 

■ I, (IK "■". 

i REM — DESSIT 

• IF flF'% - "• TI 

• HC0LOR= C02: ) 

tZ - SO):VV 
I - SD1 

• HPLOT XX. VV 1 

Z> .V * 6 • 
• COS (7 . 



C* - NC»(CI THEN 120 
IF C ■ - DL - 1 THEN ER • 
BOTU 130 



"C'EST TOUT" 
-OUPL1E" 



LI) = C*:LI 
: = DC - isLII 



LI 



I: GfJTi 



:L1B = ACTS (DC) : 
PRINT "J-AI OIlBLtE »NC*(DC) 
NC»<DC) - ■•■■: GOTO T70 
230 IN»<LIt - C*:Lt ■ LI * I 
260 PRINT : PRINT "Of.": PRINT 

??•■ RETURN ! " 

300 REM — INITIALISATIONS - 
i.OMEM: 16364 



JL 1 " 



IN: 



REM -- INIT DESSIN 
HCOLOR- 7: HPLOT 0,0 
IO Z7B, 159 TO ». 15' 



suite page 12 



PATOIS BASIC 



[.'adaptation dun programme d'un 
ordinateur X sur un ordinateur Yn'est 
pas toujours chose aisee. 
A prion, presque tous les ordinateurs 
individuels sont programmables en 
basic, langage theoriqurment stan- 
dardise. 

En realite. et le b:isic pai lui meme 
nest pas e'i cause, chaque ordina- 
teur posswJe son basic "etendu" qui 
reste tres different des autres 
HebdcgtcieJ vous aide a cealiser 
("adaptation rt^s qtojtvv""^- • .< 
vu^> i.r.fe^o. 3-.i en publiant Cia- 
que semaine et pour chaque ordina- 
teur, un resume des particularity du 
basic conceme. 

Pour les mordus du ktngage machi- 
ne, aucune solution de ce lype n'est 
envisageable. et pour cause 
Bien entendu, remarques et ajouts 
seront les bienvenus afin de comple- 
ter petit a petit ce panorama des pa- 
tois basic 



Cette semaine : APPLE. 

Suite page 12 



EDITO 



Quand nous avons publie les pre- 
miers numeros d'Hebdogiciel. nous 
avons essay e de sortir des sentiers 
battus, moinsde redactionnel, moins 
de publicite et beaucoup de pro- 
grammes. Nous espenons une parti- 
cipation dynamique des lecteurs 
francais, nous avons ete comble : 
plus de 2000 logiciels recus a ce jour 
dont plus de 600 pourle seul mois de 



decembre ! Et une qualite chaque 
jour meilleure. Nous n'avons plus 
rien a envier aux anglo-saxons ! Voila 
le classement des programmes re- 
cus a ce jour : 



TI 99/ 4 A 

ORIC1 

ZX8I 

TRS 80 

VIC 20 

APPLE II 

COM 64 

HP41 

T07 

FX702P 

PC iSuu 

SPECTRUM 

MPFII 

MZ80 

PC 1211 



19,44% 
19,09% 
10.71 % 
6.29 % 
5.93 % 
5.12% 
5.10% 
4,77% 
4.35 % 
4,30% 
J.72 % 
2.52% 
2,32% 
2,13% 
2,05% 



Les autres ordinateurs sont soit trop 
recents soit entres depuis de temps 
dans I'Hebdo, soit "dans les choux". 



Perseverez, continuez a nous en- 
voyer des programmes pour faire 
monter votre ordinateur au hit-para- 
de des logiciels. 

Cette semaine, nous parlons beau- 
coup de LOGO, c'est non seulement 
un langage adapte a I'education 
mais, c'est aussi une autre facon 
d'aborder I'informatique, n'hesitez 
pas a nous envoyer des programnes 
ecrit en LOGO sur la version de votre 
ordinateur ou sur le MINI-LOGO que 
nous publions cette semaine. 

Nous publions aussi la premiere par- 
tie d'une serie d'articles tres utiles : 
I'adaptation des instructions de dif- 
terents ordinateurs. 
Cela vous permettra d'avoir plu- 
sieurs logiciels par semaine. La en- 



core, envoyez-nous vos suggestions 
et vos remarques, nous comptons 



MENU 



APPLE II 


Mini Logo 


Joel GADRAT 


page 1 


TI 99/4A : 


court,? de voitu r es 


Pascal ENFT 


page 2 


TC7; 


Pac Man 


Emmanuel BERNOUt) page 2 


TI 99/4A : 


/onstre et chevalery 


Frederic CHAUVIN page 3 


ZX81: 


Electronique 


Yvon MENARD 


page 4 


COM 64 : 


Gestion fichier 


Pierre WRIGHT 


page 5 


VIC 20 : 


Mission suicide 


N NORMIER 


page 6 


TRS 80: 


Colteur electronique 



Eric JEANELIE 
MZ700: 
Bernard RAGOT 
MP-FII : 
Andre LEGRAND 



page 6 

Des-illusions 

page 7 

Obstacles 

page? 



FX-702P : Prince des anneaux 

Christian LEGRAND page 10 

PC 1211: Banderolle 

Bernard POYAU page 10 

GOUPIL: Emprunt 

Mane-laure BESSON page 1 1 

PC 1500: Bowling 

Charles CARRON page 1 1 

ORIC1: Krypton 

PPIERONI page 13 

HP 41 : F 1 

DidierVALLET page 14 

CANON X-07 Morpion 

Cyrille DANES page 15 



HIPPOREBUS trouvez lexpressionqui se cache dans la BO de I'hippocampe Decompose en trots syllabes dans les t rois premieres cases, le "tout" a evidemment un rapport avec I'informatique 
(solution en page interieure) 




Siw&ULi£.REf^EMT, CETTE PEftSOMklE 
NOUS D£FJNiiT,OM NE PEUTMl'eUX... 




"TMONTOur EST UNE \JARIABLE DE 

BlfANCHEMeMT.. . 




^y 



( Mo-IQ "^ 

\ i^ IU 6 Janvier 84 / 



Allemagne 3,50 DM - Be:gique 55 Frs ■ Canada 2,50 $ - Luxembourg 57 Frs - Suisse 3 Fr; 



COURSE DE VOITURES 



blO CALL 



OINI 



».ER> 




Les as du volant donneront libre cours a leur passion avec 
ce programme. 

Profitez-en. la vitesse n'est pas limitee. Mais attention, 
vous n etes pas seul sur la route ! 

Pascal ENET 



CALL A[| I P^f 

BT m " -c\-9^' 

CALL CHARSET K « 

DISPLAY BEEP ATU2,B>:"DLIELLE VITESSE ? " V 

ACCEPT BEEP SIZE ( 1 > VALIDATE ( " 123" ) AT ( 12. 24) :GM 

CALL CLEAR 

CALL MAGNIFYI3) 

A-INT(RND»6).(GH*1B> 

B-INT{RND»9>*{GH.7) 

C"INT<RND«lu)*(GH»2>.i3 

D-lNT(RND«13>*(BH+7> 

CALL CHARI91, "OOOOlRlBlBie-) 

CALL CHAR(BO."FFFFFFFFFFFFFFFF"> 

r:oi i. cMHh'14'.p. ■'■i7 1 jFun:>F'jcoGOF0f"i"ii'<:'E'"t "i:"i"i "HF 'Jfofof03O10F0D0D0D0D0FO30Fofo 

CALL CHAR(44."0FOBlBlFlC0B0B0BOF0C0ClFiaiA0BO7FO]OlBF83BDODODOF03030FBIB5810 
CALL CHAR<48.-0101030203030302020B03030203010180BOC040COCOC0404000AOC040COBO 
CALL CHAR<52,"00OOO1040201OOO100iaiC18O102040800000iB2442B9042844842AS242E0E 

CALL CHAR (56, "OOOOOFOB1B1 BIBOFOBOF 1BI AlB0F0O0O00O0FOlOD8DBiaF010F0IB5BlBFO0O 

CALL CHARI60, -3F246464646464242424242424242424FC2626262626242424242424242424 

CALL CHAR (oi , ■■20203F0FOF3F7O6F6F2F2F7O6O7F373F0404FCF0FOFC0EF6F6F4F40E06FEEC 

CALL CHAR (68, "FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF 

CALL CHAR<72,"FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF 

CALL CHAR(B4,"2F373B3C3E3E3E3E3E3E3E3E3C3B372FEBD8687BF8FBFBFBFBFBFBF87BBBDB 

CALL CHAR(BB,"O00O0SOFlF3F3FlFlFlF3FlF0F0703OO0000B0E0EOF0F8FCFBFBFOE0E0C0OO 

CALL CHAR (92. "00O039FFEBA7E7E7E7E7A7EBFF39000OQOOOC04OA0A0A0A0A0A0A0A040C00O 

CALL SCREEN(4) 

CALL COLOR (10. IS, IS» 

CALL CQLOR<7,16.15> ^^^ 

CALL C0L0R16. 16, 15) ^ ^P^* 

CALL VCHARd, 10. 104,240) 4**- % ft m 

CALL VCHARd, 9, 60.24) gk »__ M %. M 

CALL VCHARd. 20, BO, 24) •■lM'% IV ^^^ % ^^ 

CALL VCHARd, 14,81,24) M^V LV^^ 

CALL SPRITE<»2,44.7. 1.74.A.0) ■^^fc W • 

CALL 5PRITE(#3,4B, 13. 1,92,B,0) ^B**' • 

CALL SPRITE HI4, 56, 2, 1,110, C.O) ^^ ^^^» • 

CALL SPRITE (NS, 60, 14, 1 , 12B. D,0) «^^1 » 

CALL 5PRITE(»6,64,14,17,12B,D,0) *»« 4k. * M ■ %^T 

TALI. 5PRI rE(#l,40,9, 160, 110) _^rf»"l l\l V# ^^ 

CALL SPRITE(*>10,e4.2.90,30.6.0» -^^^^^k W^* » ^^ *^^ 

CALL SPRITE (• 11. 04,-*, 90,230,6.0) W — % Vr^* 

CALL SPRITE (•1J.UB, li. 130. 16,6,0) ■"** ■ '^^^ 

CALL SPRITE (HI 3, 8B, 3, 100.210,6,0) ^Ltf8»> 

CALL SPRITE(ttl5,92. 16. 195,50,6,0) ^^^ 

CALL CEY(I,K,S> 

IF S-0 THEN CALL HOT I0N(M1 .O, O) 

IF K-2 THEN CALL MOT 1DN( t 1 .O. -81 

IF K»3 THEN CALL nOTlONItH -O.B) 

CALL C0INC(*l,*>2. 12,QM> 




62" CALL C0INC(»I,»4, 12 

630 CALL C01NC(NI.*5, I4,U1> 

□40 CALL tOINC(»l,»6, 14, DPI 

650 CALL COINGCtl,l30,32,20,ASl 

660 CALL CDINCItll, 150. I58.20.DF: 

670 IF QW— 1 THEN 910 

6B0 IF ER-1 THEN 910 

690 IF TV— I THEN 910 

7O0 IF UI--1 THEN 910 

710 IF OP--! THEN 9IO 

720 IF AS--1 THEN CALL MOTION!*: 

730 IF DF--1 THEN CALL MOTIONiai 

740 SCORE -SCORE *0. IS 

: SCORE -25 THEN 1 240 



760 CALL 



(1.1 



770 IF S«0 THEN CALL MOTION!*] 

780 IF *-2 THEN CALL MOTION'*! 

790 IF t-3 THEN CALL MOUON(*1 

800 CALL CDINC(*I,N2. I2.QW) 

BIO CALL COINC(NI.*)3, lO.ERI 

B20 CALL COINC(Ml,*4. 12. TY) 

83" CALL COlNlKHl.dS. 14.UI) 

B40 CALL C01NC(*1.*6. I4.0P1 

BSO IF OW-- 1 THEN 910 

860 IF ER— 1 THEN 910 

B70 IF TY— 1 THEN 910 

8B0 IF UI--1 THEN 910 

B90 IF OP--1 THEN 910 

90O GOTO 560 

910 CALL PATTERN (•1.52) 

920 VIES-VIES-1 

930 CALL MOTION(Bl.O.O) 

940 CALL S0UNDI5O0.-6.0) 

950 FOR Z-I TO 20O 

960 NEXT I 

970 CALL DELSPRITE(ALL) 

9BO CALL CLEAR 

990 CALL SCREENI16) 

lOOO IF VIES-0 THEN 1020 

IO10 GOTO 170 

102O REM 

1O30 CALL CLEAR 

1040 CALL SCREEN(6) 

1050 CALL SOUND (750, 117. O) 

1O60 CALL SOUNDI7SO, 117,0) 

1070 CALL SOUND < 183, 117. O) 

1OB0 CALL SOUND (538, 117,0) 

1090 CALL 30UNDC730, 139,0) 

1100 CALL SOUNDUB3, 131,0) 

lllO CALL S0UND(55B, 131.0) 

1120 CALL SOUND (183, 1 17, O) 

1130 CALL S0(JND(33B, 1 17,0) 

1140 CALL SaUND(350, 110,01 

1150 CALL S0UNDI15OO. I 17,0) 

U60 CALL CHARSET 

U70 DISPLAY AT(12,3)="KILONETRES : "tSCORE 

I1BO IF SCORE- -3 THEN DISPLAY AT (IB, 8) : -Vous 

1190 IF SC0RE>5 AND SC0RE--10 THEN DISPLAY AT 

1200 IF SCORE'lO AND SCORE' -15 THEN DISPLAY A 

1210 IF SCORE 15 AND SCORE-: -25 THEN DISPLAY A 

1220 CALL KEVfO.K.STJt I 

1230 END 

1240 CALL CLEAR :: CALL SCREEN d 

1250 CALL DELSPRITE(ALL) 

1260 CALL CHARSET 

1270 DISPLAY AT(8, 1) :"Bnvo, vous 




O THEN 1220 ELSE lO> 



t)» q*gn*r 



1280 



DATA 175, 196, 220, 196. 1 75, 262, 294, 330, 349, 349, 330, 330, 294,294, 262, 262, 247, 24 
i, 196. 175, 196,220, 196. 175 

DATA 262, 294, 330, 349, 393, 3*9, 330, 294, 762. 330. 294, 262. 262. 330. 349. 392, 349,33 
', 330, 349. 392, 440, 494. 494 

DATA 277, 294. 277, 294, 330,3*9.330. 294, 2q.l 
RESTORE 12B0 
FOR NOTE-1 TO 59 
READ X 

CALL SOUND(400,X,0) 
NEXT NOTE 

FOR 1-1 TO 50O :: NEXT I 
GOTO 100 ■ 



PAC-MAN 



Etre ou ne pas §tre devore ? 

La est la question en ce qui concerne ce programme. 
Vous trouverez, (peut-§tre) le salut dans la fuite ! Bon 
appetit, Messieurs ! 



-ro? 



Emmanuel BERNOUD 



GOSUB7800:GQTQ3eeO 

: GOSuB 8000 

-- ■ ***** DEBUT [.E PPuGPAMHE *••** 

10 PSET<C< l-10'.D(I-ie>'>- ' 

!! hTTRB l,l:I=I*i:P0-PO*5!LOCATE 26. 

PINTPO)ATTPB 0,6 

1£ COLORS: LOCATEC* I - 10 ■ . D ■ I - I ' I PPIN' 



n on sriO'8' cosue 100e.1ee1.teej. 1063 

. 1804.1063.1606,1087 

14 IF P0INT^*S*£.B*8> 4 THEN €000 

15 COLOR 4:lOCATEa.B:PPINT" - 
18 IF A- 26 THEN A=6 

20 A*A*DA:B=B*t'B 

21 IF SCREENS, B' = l£7 Then h*«-I/a:B=B-DB 
23 C'I)-A:D<I>»B 
2b 5U-5U*e.e3 

30 COLOR 4:L0CfiTEH.B,e:PPINT«* 

31 PSET(A'0>.Bi8> >* •,* 
40 IF A<e>.A THEN IF SCREEN >R.0-t.B'0' 

■■ 127 THEN rt'6> = rt' 0.'*l:GOTO 80 

50 IF B'BXB THEN IF SCREEN i.At < .B- ' + I 

'127 THEN ei.8>=Bi'.0>*lstOTO 80 

60 IF AiBK'A THEN IF SCREEN >A<0'-l.B'e' 

1 127 THEN <He>=rt>0>-l:GOTO 80 
70 IF B'B)^ THEN IF SCREEN >.*< > . B' • -I 

• .'127 THEN Bie>*B'0>-l:GOTO 80 

38 COLQRULOCATEH' :-,B'.a.>:P*INTGP»- 3 

81 RSET.A(1),BH>)" ",6 

140 IF BUKB THEN IF SCREEN lAH'.B 

1X>127 THEN B'.'I '=B- O*t:G0T0 186 

130 IF A11XA THEN IF SCREEN ir<I>-*1 

>'<M27 THEN B<T>»«i !>*IiCOT0 180 

168 IF (. : F- THEN IF SCREEN <A<]>,B 

l><>187 THEN Bil>=B- D-HGOTO 180 

178 IF A(1>A THEN IF SCREEN <A(|)-t 

)'<>127 THEN «Cl)«ft<l)-i:GOT0 180 

186 COLOR 0:lOCATEh< 1 >.B' 1 >:PRlNTGPt 

181 PSET<«<3>,B<3>>* ".6 

190 IF SU*3 THEN 300 

246 IF B<3'-B THEN IF SCREEN 'Ai3'.B 

l>OiZ7 THEN B<3>-B>3>-i:G0T0 288 

250 IF R(3)4A THEN IF SCREEN i«*3)-l 

>'<>127 THEN ft<3>-A*3)-HC0T0 280 

2*0 IF B<3)>B THEN IF SCREEN i«<3>.B 




IJ0187 THEN B(3>-B(3>*HG0T0 2B0 

270 IF A<3>>H THEN IF SCREEN ■A'3:-l, 
■ 1£7 THEN R<3>«J«C3)+HC0T0 286 

273 IF A<3>>20 THEN hi3'-I3IB<3'«? 
£'P 23B COLOP 2!L0ChTEh. 3>,B' 3 'JPPINTGPI' 

250 GOTO 10 
GR» 380 * 

340 IF B<:3:>>B THEN IF SCREEN 'A<3:.B' 
I- :>127 THEN Bt3>»Bi3)+ltC8T0 380 

341 IF B.3> B THEN IF SCREEN [«<3>r8< 
1". -12' THEN B'3>-B'3.-IiGOT0 3B0 
350 IF B'3'-B THEN IF SCREEN 'rt'3'.B> 
I"'127 THEN B'3)-B'3."l:G0T0 380 
352 IF B':3'=6 THEN IF SCREEN <«<3>,B< 
IX>127 THEN 8'3'«B<3'-i:C0T0 388 
360 IF H<3>-fl THEN IF SCREEN «<3'.-l, 

■ ■: ■ J27 THEN flt3>»*< 3 >-ls GOTO 380 
370 IF R<3»» THEN IF SCREEN i«(3>H, 

'.:'.■ 127 THEN R(3>«4(35*HC0T0 330 
3'l IF fl(3' = A THEN IF SCREEN ^•3'--l. 

'■■■127 THEN «(3)«*(3>-lieOT€ 386 
3"2 IF R(3>-i* THEN IF SCREEN (AC3>+1, 

127 THEN h'3'«k' 3**l:GOT0 380 
3"5 IF *'3"£0 THEN H- 3 '- 1 3: fl' 3 > = ? 
330 COLOR 2:L0CATE«' 3>,B>3>:PRINTGR*' 
'"> GOTO 10 





1000 


[>H=e:DB»-l:R«*GR*'0 ■ 


PETUPN 


■ 


1081 


PA=*i:DB*-l!AI«GPI< 1 


(RETURN 




1082 


Drt-*l!DB«0i«*»GR*-2' 


RETURN 


1 1 '♦ 


1083 


Drt=*l:DB-*l!A*=GR*' J 


ERETORN 




1084 


DH=0:DB = ''1:h«=GP»'.4.. 


RETURN 


-Bel 


1005 


DH»-i:D8=*l!«*=GR«<5 


(RETURN 




1006 


DR"-i:DB-0:B«"GR*(6 > 


RETURN 


I i .- 


1087 


M — liD8=-H««-CR*<7 






1999 


' »•••• LA8YRINTHE • 


•*- 


,Bd 


2001 


PAT A ■♦♦.«.♦ ,,.♦*+..♦ 
DATA** * 


****** 






2002 


DATA'* **- *" ♦ -** 








2083 


DATA". «** *** * ♦** 








iOt'4 


DATA"* 








2003 


DATA-* **♦ * ***** * 








2006 


DATA"* * * * 






f Bf3 


2087 


DATA".**.. ... . ... 








2888 








<3) + 


2889 


DATA****** ...♦♦» 


*♦♦*+ 





2810 DATA- * 

2011 DATA"*.**' ...... *+*+■*" 

2012 DATA"...** ' . **+++• 

2013 DATA"***** * .♦♦♦* ♦ +♦+♦*• 

2014 DATA"* + ♦' 

2015 DATA'* ♦*♦ *** ♦ *-* **+ ♦" 
£016 DATA". * * +- 
2017 DATA'**. + * ..♦** * ♦ *♦*- 

2019 DATA". ... +" 
£01? DATA". +♦*..** * *♦.*.♦. +" 

2020 DATA". *" 

2021 DATA-.*.*.........— ...♦**■ 

3000 ' •• CREATION DES PEPSONNAGES •■ 

3081 CLEAR,,9:DEFGPI'.0' = iB00ie0ief. I.B81 1 
001 ie.t.Bl 11001 11. 1B1 11001 11. tBlllllIII.I. 

Biiiiiiii.iBeniiiie.tB0eiiiieo 

3010 DEFGRO 1 ■-1B001 1 1 l0e.t.B01 1 1 1000.1B1 

i:ieeei.iBtiii00ii.t.Biiiiiiii.t.Biiiiiiii 
.i.B0itiiiie,t.B00ii 1100 

3020 DEFGR*<2'-t,B00111I0e.t,B01111110,*Bt 
: : 1 1 1 1 1 .tBl 1 1 10000, 4B11 110060.1611111111 
..B01111110.trB001 ! 1100 

3030 OEFGRf'3-*tB0Bl I 1100.1601 111 IK'. tBl 
111111 l.tBllllllll.t-Bll 11001 1. tBl 11 10001 

.iB0iiii00e P tB0eim00 

3046 DEFGP(>4> = tB001 1 1 1 06, IBB 1 1 1 1 : ly.'El 
llllll l.tBlUllll l.*B 11 10611 1. tBl 11001 11 
,tB011001 10,tB00180100 

3050 DEFGPf(5>=tB00111I00.tB0111I116.*Bl 
1 111111, IB 11 111 111. 4B 11 001 11 1, tBl 0801 1 II 

.£660611118. teeeiiiioe 

3060 DEFGR*i6' = »B60111iee.tB01iniie,ilBl 

iniiii.teeeoeiiii.^Beeeeiiii.'-Biiiiiiii 

■ tB011111 10,tB6011 I 180 

3070 DEFGPI(7- = ',Be01 11 100. 1600011 1 1CIB1 
8001 11 1. IB 11 001 1 Il.tBll 1 11 11 1.&B1I11 ! 111 
. (.661111110, IB60111100 

3e8e c-EFGP*-8:*=tB09nn0e.iEei0iieie.66i 
6611 oei. ten eiien. tBi ii in: i. ten ii i ii i 

.tBlllIllll. 1010011061 
3308 GOTO 1 

3999 ' •*•• TPAITEHENT :e; ERPEURS »•*• 

4000 IF EPfl=? THEN IF V=8 THEN FE=PE-::I 
=10iV=l:PLRY "AIDODODODO-:GOTO 6100 ELSE 

1-18 
4010 IF ERR"5 an:..h«0 OP H^-l.THEN » = £8 
4815 IF ERR-5 aNDiR'3-=8 OR fK3)"-l>THEN 

A'3>-13iB(3»«9 
4828 RESUnE 

5808 PLAY-04LI5SOP1Ii:'C. '^ OrCL£4DO' 
5010 PLAY"Ll5L-rAREL9L.*FAL24RE- 
5020 PLAVLI5S0MID0L9S0MIL24D0" 
5036 PLAY-L?RENIF«nlFASOF-SOLASOL-Sl" 
5036 RETURN 

5?99 * ••••• UNE VIE EN HQIWS •••»• 
6006 IF POINT Aie>3.B*s ■'! T HEN PE = P£-1 
6610 IF POINT. a«8*3,BI8 -*3 "HEN PE = F£-1 
6820 IF POINT' A«8.3.6»8'=5 THEN RE=PE-I 
6030 IF POINT' AI8.3.B*8 ■-£ THEN PLAY-L2R 
EFASOLADOSIRESIDOFHLASIREIt'SODOFEmFALAS 
OHIRE-:PO=PO»I80!A. 3> = 13: E 3 • = ?: GOTO 15 
6040 IF P0INTiA«3.;.B«E =-" THEN 15 
6058 PLRY-L605SILASOF«»tIREDO- 
6831 PLAY-04SILASOFAMIREDO" 

6032 PLAV03SILASOFANIREDO" 

6033 PLAY-02SILAS0FhHIPE£'0- 
6854 PLAY-01SILA50FANIREDO" 
6860 PIT' "■ •• .E " > ' " 
6061 PSET'A^I ',B'l ) •" - 



6862 PSETA.B'- * 

6063 PSET-A'3>.B'3 ■" • 

6064 PSET'CiI-10i,DCI-10) ■" " 
■ 6880 A(0>-8:B(0>=9:DA=-1:COLOR 4 

6881 H<l)«13tBU)-9lM-GS»<6) 

6898 A-i0!B=17: I = 1 e = D B = C : RESTORE 

.HA<3>-13:B'3> = ? 

6096 A*=GR*<6) 

6100 IF PE>4 THEN LOCATE 30. 16: PR 1NTGM 

6>;GRi(6'iGR*<6';GP*'.6>:" 

6110 IF PE-3 THEN LOCATE 30, 10: PR INTGRI 



■ •: | 



:GR>< i 



;GRI' < 



6120 IF PE"2 THEN LOCATE ;0. 10: PR INTGfi »' 

6»;GR*i6)J" 

6130 IF PE=1 THEN LOCATE 30. 10: PR INTGRI < 

6>;' 

6140 IF PE-0 THEN LOCATE 30.10:PPINT" "! 

GOTO7500 

6150 GOSUB 5800 

6200 IF ERP=9 THEN PESUflE 

6500 GOTO 15 

6999 ' *•••• EXPLICATIONS *•••• 

7000 CLS:SC»EEN2.0.0!OTTP61. ]:B0X(4.2>-( 
35,9>'^.-.1.6:LOCATE12,6.0:COLOP2.0:PRINT 
■HINI-PAC-!GOSU65080 

7010 CONSOLE 12, 24. 0.1:SCREEN1. 7. 4: LOCATE 
0. 24! ATTRB0.0: PRINT" ATTENTION'": PR INT "Vo 
u* *utz affaire • des necnan ts. . . -:RRINT 
:PRINT'Sau»«i-yous ... si ■'ou* pouu.i''! 
PPINTSPRlNTSPPINT'Les CLOUTONS '-ous pour 

7020 PRINT-i-anger, sauf le »*rt ... ; vous 
ra»port«ral06 POINTS si .-Ous reuss:jse2 

"030 FPINT:PPINT:PRINT:COlOP0:PRINT"POUR 
VOUS DEPLACER. VOUS UTIlISEPEZ Lh MANE 

TTE DE JEU." 

7040 PRINT:PPINT-POUR COnnENCEP. APFU-.Et 
SUP L- TOUCHE -action- DE LA ManETTE. 

"058 IF 5TPIG'0-*-: THEN C ONSOLE0. 24. 0,0 

(RETURN ELSE "650 

74?9 ' •••»• FIN t'E PfiPTIE •••*• 

7388 CLS:SCREEN5.3,4:aTTRBI.1:L0CaTE£.I2 

.0:PRINT-;COPE = -; 

■•510 GOSU85ee0:PL«-."'O4_:53Orm'OL?SOMlL24 

DO" 

"5£0 PL«Y-L15LhFAPEL:-'i.hF„ 1 .24RE- 

'530 PLAY-L15SOHU'0L?SO«IL24DO- 

7540 PLAY-L?SILHSOL"S0FN;i:FHMIFuHIREt.0O3 

SILAS0LASI04L15REL£1D0- 

7530 PRINTPO:«TTP60.0:L':C«TE0,23:ENt' 

8080 ' ••••• INITIALISATION •»••* 

9001 SCREEN 4,6.6:CLS:0N ERROR GOTO 4060 

(DIM C<400<,D(400>:LOCATE 0,1 

8082 FOR I»0 TO £1 

6003 READ AS 

8084 FOP J-l TO £1 = L0CaTE J,I*lHF P1ID«( 

H$,J,1' = '*- THENPPINTCHRf' 127 • ELSE PRIN 

T- • 

8885 NEXT J, I: GOSUB 5000 

8007 A.0. = 8:e'6' = ?H'M*-l:LOCATE 30.16JPE 

■ 3:PRINTGRt'6 ';GPf 6 >;GRI<6> 

3008 A- 1 '-I3iB- 1 -»9:A»>GRf6 '!A' 3>"13:B< 

3^9:SU-0 

9809 h«10:B=I": I = 10: PSET< », B >GPKe> 

8610 RETURN ■ 



MONSTRE ET CHEVALERY 



Le sphynx vous fait chevalier de I'ordre du Texas. Parvien- 
drez-vous a vous rendre maitre du donjon ? En tout cas, 
prudence : la vie n'a pas de prix ! 

Frederic CHAUVIN 




MONSTRES t. CHEVALERY 
copyriqht Frederic 



!> ,E(28> ,o<: 



10 REM 
20 REM 
30 REM 
40 REM 
SO REM 



70 REM 

80 REM 

90 REM 

100 RANDOM 1 2E 

1 10 DIM N(28> ,S< 

120 FOR x-l TO 3 

130 READ D*IXJ ,VM(X> .VMAX(X) 

140 NEXT X 

130 CALL CLEAR 

160 REM 

170 REM INITIALISATION 

I BO FOR 1-1 TO 28 

190 READ N(!) ,S(I>.E< I) .0(11 

TOO NEXT I 

210 REM TRE50RS 

220 FOR 1-1 TD 5 

230 SALLE«INT(RND»27>+2 

240 IF VI SALLE) ■: -O THEN 230 

250 VCSALLE)-! 

260 VT(SALLE)=INTtRND»VMAX(I) )+I 

270 IF VT ( SALLE I'VMII) THEN 24.1 

280 NEXT I 

290 REM PRINCESSE 

300 5ALLE«INT(RND*27>»2 

310 IF VtSALLEK O THEN 300 

320 V1SALLEI-6 

330 REM ARMES 

340 FOR 1-1 TO 6 

350 5ALLE-INT1RND-27J+2 

360 IF VtSALLOOO THEN 350 

370 V(SALLE)-I+22 

380 VA (SALLE ) - I NT ! RND-VMAX ( 22* I ) ) 

390 IF VA(SALLE)- VM ( I->22) THEN 3B0 

4O0 NEXT I 

410 SALLE- 1 

420 VIB-300 

430 REM DESSIN PLATEAU 

440 CALL HCHARt 1,3,42,30) 

450 CALL HCHAR(3, 3,42,301 

460 CALL HCHAR(24, 3,42,30) 

470 CALL VCHARU, 3, 42,241 

4B0 CALL VCHARI4, 23,42.20) 

490 CALL VCHARU ,32.42,24) 

SOO CALL HCHAR16, 24,42,8) 

510 CALL HCHAR(B,24,42,S) 

520 CALL HCHAR1 16,24,42.8) 

530 CALL HCHAR(5,26,45.4) 

540 CALL MCHARUO,24,45.6) 

550 CALL '.'CHARU 1,24,46,5) 

560 CALL HCHARU8,24,45.B) 

570 CALL VCHAR<!9,24.46.5> 

3B0 A«="PT* VIE: 300 « PT* FORCE:< 

590 CH-2 

600 CV-3 

tm BOSUB 3R»' 

620 A«-"DES: ' 

630 CH-4 

640 CV-23 

650 GDSUB 3860 

660 ««- '■ARMES:" 

670 CH-9 

680 CV-23 

690 GOSUB 3860 

700 A*-"TRESORS: » 

710 CM- 17 

720 CV-23 

730 GOSUB 3860 

740 FORCE-INT (RNDH51H 

750 IF FORCE' 10 THEN 74<i 

760 A*-"BIENVENUE DANS" 

770 CH-5 

7B0 CV-5 

790 GOSUB 3860 

BOO A*-"MON CHATEAU." 

aio ch-7 

B20 CV-6 

B30 GDSUB 3860 

B40 A»="MOI LE SPHINX" 

B50 CH-9 

S60 CV-6 

870 GOSUB 3B60 

BBO A*="VGUS ACCORDE" 

B90 CH-ll 

900 CV-5 

»10 B08UB 3B*>" 

920 A«-STR*IFORCE)V POINT 5 DE" 

930 CH-13 

940 CV-7 

930 GOSUB i860 

960 A*-"VIE. " 

970 CH-15 

9BO CV- 1 1 

99.1 bosub "B6" 

lOOO REM JEU 

1010 IF VIE-O THEN 3960 

102O IF FORCE =0 THEN 3960 

1O30 A»-5TR« (FORCE)!." " 

104O CH-2 

I05« CV-2B 

1060 GOSUB 3860 

1070 GOSUB X930 

1080 A«-STR»<VIE) V " 

1090 CH-2 



28) .D»(30) , VM(30),VMA» 
[90 GOTO 1310 



,VA(28) ,VT(2B 



llOO 



-11 



1110 ( 

I 120 NOC-NOC'I 

1130 REM NB !■ NOM DES SORTES 

1 140 NS=0 

1 ISO IF N 'SALLE) THEN 1200 

1160 IF SISALLE) O THEN 1730 

1170 IF OlSALLE) THEN 126" 

11B0 IF E1SALLE) THEN 1290 



220 GOTO 1 160 

230 NS-NS+1 

24D B*-B»!."S " 

250 GOTO 1170 

260 N5-NS+1 

270 B*=B»!. ,, " 

280 GOTD 11B0 

290 NS-N5+1 

300 B*=B»fc"E " 

310 IF NS-1 THEN 

320 A*=' , IL Y A " 

330 CH-CH*4 

340 CV-3 

350 GOSUB 386" 

360 GOTO 1490 



GOSUB 3860 

A*="SORUE( "&B»V)" 

CH=CH*2 

CV=6 

GOSUB 3B60 

IF 6«="N " THEN 1 700 

IF B» = "S " THEN 1730 

IF B» = "0 " THEN 1760 

IF B»-"E " THEN 1790 

A»-"( "(,B»fc H )'' 

CH-B 



CV-8 
GOSUB 3860 



I A«-"LAGUELL£ PRENEZ" 



GOSUB 3B60 



5ao a»="vous ■ 



i CV»9 



GOSUB 3860 

CALL KEYd.KE.ST) 

IF ST-O THEN 1620 

CALL HCHARf 12,16, KE) 

IF KE-69 THEN 1790 

IF KE-V8 THEN 170O 

IF KE-83 T HEN 1730 

IF KE-79 THEN 1760 

GOTO 1620 

IF N(SALLE)-0 THEN 1620 

SALLE-N(SALLE) 

GOTO I B 10 

IF S(SALLE)=0 THEN 1620 

SALLE-S(SALLE) 

GOTO I810 

IF 01 SALLE )=0 THEN 1620 

SALLE-O(SALLE) 

GOTO IBIO 

IF E(SALLEi=0 THEN 1620 

SALLE«E(I3Al [ •[ I 

GOSUB 392<) 



i IF V(SALIF>=0 THEN 185" ELSF 2690 

I X-[NT(RND«10>*1 

i IF X>4 THEN 1930 

) A»-"LA VOIE EST LIBPE.." 

I CM- 13 



I CV-3 

i GOSUB 3860 

' VIE=VIE-INT<RND*I5;-1 

I GOTO 1010 

i X=tNT(RND*22)-H 

I IF Xv6 THEN 1930 

i FM-INT(RND-VMAXIX) )*1 

i IF FM-:VM(X)THEN 1950 

i A«-"ATTENTION VOICI UN" 

< CH-5 

I CV-3 



2010 
2020 
2030 
2040 
2050 

2070 
2080 
2090 



21 70 

; ibo 

2190 
2200 

22 lO 
2220 
2230 
2240 



DE FORCE ' 



BOSUB 3860 

A»="LE COMBATTEZ-VOUS 

CH-10 

CV-3 

GOSUB 3860 

CALL KEV(O.KE.ST) 

IF ST-0 THEN 209O 

IF KE-79 THEN 2160 

IF KE-78 THEN 2140 

GUIO 2'.90 

FORCE-FORCE-FM 

GOTO 1010 

A*-"1..A MAINS NUES" 

CH»13 

CV-3 

GOSUB 3B6" 

FOR H=l TD NA 

CV-5 




I NEXT H 

. CALL KEV(0,KE,STI 

I IF ST=0 THEN 2260 

i )E=KE-4B 

I IF KE'l THEN 2260 

) IF KE.-H THEN 2260 

) IF KE-1 THEN 2320 ELSE 2360 

) FC-FM-(INT(FOPC£/10>) 

I IF FC<"0 THEN 2340 ELSE 2350 

I FC-0 

i GOTO 23B0 

. FC-FM-( INT (FORCE/ I'"" I -FA IKE- I 

i IF FC<0 THEN 2340 

■"COMBAT A "fcSTR»<FC> 



2390 CH-CH+: 



CH-I 



+ 1): 



GDSUB 3860 

D1-INTIRND»0)*1 

D2=INT(RND*6)*1 

Q FOR HH-1 TD 150 

NEXT HH 

-i CALL HCHAR(7,25. (DH-48) ) 

CALL HCHA«(7.30, (D2*48)) 

:i IF DltD2FC THEN 2570 

IF D1*D2-FC THEN 2640 
3 A»-"IL VOUS A BATTU" 

3 CH-CH+2 
3 CV>3 

-1 GOSUB 3B60 

' VIE=VIE-(INT1RND«50)-1) 
? FORCE-FDRCE-FC 
3 GOTD 1010 

-> A«="BRAVO IL EST MORT" 
3 CH=CH+2 
3 CV-3 

-J GOSUB 3B60 

3 VIE=VIE-!INT(RND*10)*1) 
3 FORCE-FORCE*FC 
'J GOTO 101O 

J A»-"ZUT, IL EST PARTI" 
3 CV»3 
J CH-CH+2 
'J GOSUB 3860 

> GOTO 1010 

5 .REM PRINCESSE 

J IF V!SALLE)=6 THEN 2710 ELSE 3O00 

> GOSUB 3920 

3 IF PRINC-1 THEN 1870 

3 A*="VQILA LA PRINCESSE" 

3 CH-12 

3 CV-3 

) GOSUB 3B60 

) IF NT»2i-FDRCE: 25 THEN 2780 ELSE 29C 

3 A»-"ELLE ACCOMPAGNE SON" 

3 CH-14 

> CV-3 

) GOSUB ZBbV 

> A**"ADMIRABLE SAUVEUR" 
) CH-16 

) CV-5 

) GDSUB 3860 

> PRINC-1 

1 IF NT=5 THEN 4100 
) F0RCE-F0RCE+5 

1 GOTO 1010 

;, A««"PAS5EZ VOTRE CHEMIN" 

) CH-14 

> CV-3 

) GOSUB 3860 

J A*.»V0US DJT-ELLE" 

1 CH-16 

i CV-6 

) GOSUB 3B60 

) VIE-VIE-INT(RND»30H-1 

) GOTD 1010 

) IF V(SALLE)'6 THEN 3010 ELSE 3390 

) A«-"AH'AH'UN "M3» (V (SALLE)) 

) CH-5 

) CV-3 

) GOSUB 3860 

I A*="DE VALEUR "VSTR« (VT (SALLE) ) 

) CH-7 

) CV-3 

I GDSUB 3860 

) IP VT(SALLE) -FORCE THEN 310( 

1 A«-"MAIS IL EST TROP" 

) CH-IO 

) CV-S 

' GOSUB 3860 

) A«-"CHER POUR VOUS" 

> CH-12 
I CV-3 

> GOSUB 3860 
I VIE=VIE-INT(RND»20)*1 
I GOTO 1010 
I H*="L HCHErtZ-VOUS - '" 

> CH-10 
I CV-3 

• GOSUB 3860 

> CALL KEY(0,KE,ST) 
i IF ST-0 THEN 3240 
I IF KE-78 THEN 3180 

> IF KE-79 THEN 3290 
» GOTO 3240 

• FDRCE-FORCE-VT(SALLE) 
I NT-NT+1 

• A»-D*(V(SALLE) I 

> CH-NT+1B 
I CV-24 

• GOSUB 3B60 
< VI SALLE )=0 

i IF NT-S THEN 3370 ELSE 3380 
i IF PRINC-1 THEN 4100 

> GOTO 31 BO 
' A«-"VD!LA UNF "J.D* (V (SALLE) ) 



) A»-"DE VALEUR "».STR* (VA (SALLE ) 

) CH-7 

) CV-3 

1 GOSUB 3860 

I IF NA-5 THEN S4S0 ELSE 3570 

I A»-"MAIS VOUS AVE7" 

> CH-CH*2 

) CV-3 

) GOSUB 3860 

) A*-"ASSEZ D'APMES." 

■ CH-CH*^ 



ELSE 3200 



3540 CV-3 
355" GOSUB 3B60 
3560 GOTO 31B0 

3370 IF VA(SALLE) -FORCE THFN --B.> FL= 
5380 A»-"M«IS ELLE EST TROP" 
""■'- ■ '..'• ! . 
360O CV-3 
3610 GOSUB 3860 
3620 A«-"CHERE POUR VOUS" 
3630 CH-14 
3640 CV=4 
3650 GOSUB 386'J 
3660 GOTO 3180 
3670 A««"L-ACHETEZ-VOUS-" 
3680 CH-10 
3&90 CV-5 
S700 GOSUB 386U 
371-1 CALL KEV(O.KE.ST) 
3720 !F ST='i IHEN 5710 
3730 IF Te-78 THEN 3180 
3740 IF KE-79 THEN 3760 
3750 GOTO 3710 
3760 FDRCE-FORCE-VA (SALLE) 
3770 NA=NA«-1 
3780 AR(NA)=V(SALLE) 
3790 FA(NAI=VA(SALLE) 
3800 A»=D»1V1SALLEI ) 
3810 CH-NA+10 
3B20 CV-24 
7870 GOSUB 3860 
3B40 VI SALLE 1-0 
3850 GOTO 3180 
3860 FOft Y-l TO LENiAt) 
3B70 XX-ASC(SEG«(A», Y. 1) ) 
3BB0 CV-CV+I 

3B9rj CALL HCHARICH.CV.XX) 
3900 NEXT Y 
3910 RETURN 
3920 FOR Y-4 TO 23 
3930 CALL HCHAR ( Y, 4, 32. 19) 
3940 NEXT Y 
3950 RETURN 
3960 GOSUB 3920 

3970 IF FORCE<-0 THEN 3980 ELSE 4000 
3980 CALL HCHAR (2, 29, 48, 2) 
3990 GOTO 4010 
4000 CALL HCHAR(2. 12.4B.2I 
4010 A«-"VOUS ETES MORT" 
4020 CH-13 
4030 CV-6 
4040 GOSUB 3860 
4O50 A»="ADIEU CHEVALIER" 
4060 CH-13 
4070 CV-5 
40B0 GOSUB 3860 
4090 GOTO 4090 
4100 GDSUB 3920 
4110 A»="BRAVO CHEVALIER! '■ " 
4120 CH-6 
4130 CV=3 
4140 GOSUB 3860 

4150 A«-"VDUS ETES DESORMAIS" 
4160 CH-8 



417< 



CV 



i 3860 



I TOTAL DE" 



4180 GOSUB 3860 

4190 A»-"MAITRE DU DDNJON" 

42O0 CH-10 

4210 CV-3 

4220 GDSUE 

4230 A«="E 

4240 CH-12 

4250 CV-3 

4260 GOSUB 3860 

4270 SCORE- 1 NT ( 1 VIE /NOC) -FORCE- 1000) 

42B0 A*=STR«1SC0RE)V POINTS" 

4290 CH-14 

4300 CV-3 

4310 G05US Zlib'.i 

43SO QOTD 4320 

4330 DATA "COFFRE " .9. 1 : 

4340 DATA "SCEPTRE", 10. 14 

DIAMANT-,9, 13 

LINGOT",9, 12 

COLLIER", 

DRAGON", 9, 1! 

TROLL ",4,7 



43S0 DATA 
4360 DATA 
4370 DATA 
4380 DATA 
4390 DATA 
4400 DATA 
4410 DATA 
4420 DATA 
4430 DATA 
4440 DATA 
4450 DATA 
4460 DATA 
4470 DATA 
44B0 DATA 
4490 DATA 
4500 DATA 
4510 DATA 
4520 DATA 
4530 DATA 
4540 DATA 
4550 DATA 
4560 DATA 
4570 DATA 
45B0 DATA 
4590 DATA 
4600 DATA 
4610 DATA 



,9, 13 



'BALRDG",5.B 
■VAMPIRE". 5, 9 
■VAMPIRE", 5. 9 
'COBRA", 6, 10 



'■.4,8 



"GNOME 
"GARDE 
"GOLCM 
"GDLI 
"TIGRE 
"SERPE", 1 .4 
"ARMURE",5, 7 
"EPEE",5,9 
"FRONDE". 2. 5 
"MASSE", 5, 7 
"HACHE",3.8 
"D AGUE ".2. 5 
4620 DATA "LANCE ". 4, 7 
4670 DATA 17.0,2.21 
4640 DATA M.0.3. I 
4650 DATA 4,0.0.2 
4660 DATA 5,3,0,0 
4670 DATA 6,4.0.0 
46B0 DATA 0.5,0, 15 
4690 DATA 10,0.0.8 
47O0 DATA 9, 15.7,0 
4710 DATA 0,8,0.11 
4720 DATA 0,7,0, 12 
4730 DATA 0,0,9,14 
4740 DATA O.O, 10, 13 
4750 DATA 0, 14. 12,0 
4760 DATA 13, O, 1 1,20 
477V DATA B. 16,6. 18 
4780 DATA 15. O.O. O 
4770 DATA IB, 1,0,0 
4B0O DATA 19,17,15,22 
4H10 DATA 2". IB, o.O 
4B20 DATA 0, 19. 14.25 
4830 DATA 0,0,1,28 
4B40 DATA 23. O, 18,0 
4B50 DAIA 24. 2i. O. 77 
I860 DATA 25,23.0.0 
4870 DATA 0,24,20, ih 
4BB" DATA 0,27.25,0 
4890 DATA ^.?S,^;j.... 
«<W0 DATA 27.0.21,0 




HEBDOGICIEL 27, rue du Gal-FOY 75008 PARIS 

VOUS POUVEZ VOUS ABONNER AU TARIF PREFERENTIEL DE 340 FRANCS POUR 52 NUMEROS AU LIEU DE 
52 x 8,00 = 416 FRANCS. ABONNEMENT POUR 6 MOIS : 180 FRANCS. 



NOM: MATERIEL UTILISE : 

PRENOM: CONSOLE: 

ADRESSE: PERIPHERIES : 

REGLEMENT JOINT : □ CHEQUE □ CCP 



ELECTRONIQUE 



but ce que vous avez toujours voulu savoir en electricite 

:ans jamais oser le demander ! 

;e programme fera de vous un ohm au courant ! 



Yvon MENARD 



ZX81 




468 PRINT HT 8,0, " 
E L RSSOCIflTION 

469 IF Kt="0" THEN 
I3TANCES 

4 70 IF K*=" 1" THEN 
I ENSATEURS 

471 IF K«s"e- THEN 



,E RESULTAT D ' 
LET JC = " RES 
LET JC = " CON 
LET B«=- OHM 



IF K««"0" THEN GOTO 70© 
IF Kia"l" THEN PRINT AT 4,0 
ELLE EST L UNITE? ( PF NF HF 



DIN 



= 1 TO Z 



LET B*b" KI 
476 IP Kt = 



<ILOHMS" 

AND 

/iaaa 

4 78 PRINT RT 12 , . 



15 FOR X=e TO SI 
20 PRINT RT X . 0, R 
?5 NEXT > 



50 PR I 

2 1 . . ft « . RT 1J.S R * 

53 LET AC*"»" 

54 FOR X=0 TO 13 

S? PR INT RT X . . R C RT 

6B NEXT X 

52 PRINT 




PRINT RT 3 . 14 . 
74 PRINT RT 5.14. 
76 IF INKEY* <>■■" 
78 GOTO 76 

80 CLS 



PI .' r 'ii Tin OBH-UIP^C 

84 PRINT RT 2,0, "UOUS POU' 

lOiaiR 



S6 PRINT RT 4.4;" 
MOIRE " 
88 PRINT 

90 PRINT TRB 4 . " - 
IETISME" 
92 PRINT 
94 PRINT TRB *,"- 



UEZ 
ISC EN 



10O PRINT 

106 PRINT TRB 

BASE - 
106 PRINT 

" PRINT TRB 



rvl***3" THEN GOTO 39E 
'.Ykm ■4" THEN GOTO 750 
fV»ir"S" THEN GOTO 10E 



THEN GOTO 



126 IF INKEY$> 

126 GOTO 120 

130 CLS 

132 PRINT TRB 4 . " * MI5E EN MEMO 

RE *'• 

134 PRINT RT 3,0, RC RT B . i il 

136 PRINT RT 5 . . "' ENTREZ LE NO;-' 
RE DE CHIFFRES QUE" 

137 PRINT UOUS UQULEZ HETTRE 
N MEHOIRE" 

140 INPUT Z 

142 CLS 

144 PRINT TRB 4, * HISE EN MEMO 



145 PRINT RT 3.0 

146 PRINT AT S,B 
SI DE METTRE" 

147 PRINT Z; " CH 
E . 

146 PRINT RT 6,0 

149 DIM H (XI 

150 FOR X=l TO Z 
15 1 PRINT RT 17 . 

IEME URLEUR " 

152 INPUT M (X) 

153 PRINT AT 11, 

154 PRINT RT 11 . 

155 PRINT RT 17 . 

156 NEXT X 
158 CLS 

160 PRINT RT 10 . 
RE EFFECTUEE" 
162 PRINT AT 

1 2 . : A * . RT 1 
164 PAUSE 200 
166 CLS 
166 GOTO 80 
200 CLS 

202 PRINT ■'*»** 
ISHE ***••*" 
204 PRINT RT 3 . 
ER 



, A* 
"UOUS AUEZ CMC 

IFFRES EN MEMO; 

, At; AT 15,0; R« 

0. ENTREZ LR ■•.. 



B . 2. "HISE 
, , A C AT 



8, 0. A*, F- 



ELECTRO-MRGME 

"JE PEUX CM-CU 

206 PRINT RT 6,4, "-1- INDUCTION 

D UN ■ . AT 7, B . "COURANT RECTILIL 

GNE" 

208 PRINT RT 9.4.-2- INDUCT IOM 

D UNE SPIRE" 

3 1© PRINT RT 11,*; "-3- INDUCT IC 

DU SOLENOIDE" 
212 PRINT RT 13,4; "-4- FLUX MAG 
ETIOUE " 
c?14 PRINT RT 15, 0. AC . A*. AT 20 . e 

RC AC 

216 PRINT AT 18.7. "f* UOTRE CHC 

X 7 **" 

220 IF INKEY*s" 1" THEN GOTO 23C- 



GOTO 26Q 
THEN GOTO 290 
THEN GOTO 350 



INDUCT ION D UN 
RECTILIGNE 



221 IF INKEY$=" 

222 IF INKEY*= " 

223 IF INKEY *= ' 
22S GOTO 220 
230 CLS 
2 32 PRINT A* 

234 PRINT "OO 
OURANT OO" 

235 PRINT "OO 

OO" 

236 PRINT A* 

2 38 PRINT RT 10 . . "ENTREZ L INT 

NSXTE DU COURANT " 

239 INPUT I 

£40 PRINT RT 10 . 0. ft* 

242 PRINT RT 10.0. "ENTREZ LR DI 
TRNCE (EN METRE) DU " 

243 PRINT "POINT RU F IL . " 

244 INPUT D 

245 LET Al = 2t UBlt-7) 
2 46 PRINT RT 10 . . A* . R * : RT 19 . 



A* 

247 PRINT RT 
I I, " RMPERE IS. 

248 PRINT "DISTRNCE 
E CS) " 

2S0 PRINT AT 16 . O. " 
. [Rltll/DJ J . " TESLA 

252 PRINT AT 20,0," 
LCUL ( ""O"" OU •••■N 

253 PRINT A« 

254 IF INKEY C-'O" TME1 
2«6 IF INKEY C""N" THE! 



" INTEN5ITE 



DUCT ION 
UN AUTRE 



258 GOTO 254 

280 CLS 

262 PRINT "#»** INDUCTION 

SPIRE *+***" 

264 PRINT RT 3 . O . R « : RT 5,0 
REZ LE NOMBRE DE SPIRES " 

265 INPUT Nl 

266 PRINT AT 5.0. "ENTREZ L 
N5ITE DU COURANT 

268 INPUT II 

270 PRINT RT 5,0, "ENTREZ L 
BN DE Lft SPIRE 

272 INPUT Rl 

273 PRINT RT 5.0:R*.RCAT 



"BUT 

INTE 



482 IF INKEY» = "( 

484 IF INKEY C«"f 

4BS GOTO 482 

500 CLS 

502 PRINT " ***#, 
E *****«***«-- 

504 PRINT RT 3 , ( 
*.- A» 

505 PRINT AT B.« 
CURS D EP5ILON" 

508 PRINT RT 11 
t 6 *" 

510 PRINT TRB 4, 

• 3 *" 

512 PRINT TRB 4. 

» B #" 

5 14 PRINT TPB 4. 



otpii 



( 10(*'7I I * ( (Nl 
"NOHBRE5 DE 5F 
ITE DU COURANT 
DE LR SPIRE ! 
, " INDUCTION 



" ~3- ELECTROMAC- 

-•-3- CONDENSATE 

" -4- RESISTANCE 

"-5- FORMULES D 

••-B- FORMULE5 P 
"COURANT ALTERN 



1UR" 

112 PRINT TRB 
IT XF" 

113 PRINT 

114 LET A*="OOOOOOOOOOQOOOOOOOO 
'OOOOOOOOOOOO" 

115 PRINT RT 19 . 0, ft* 

1 17 PRINT " ENTREZ UOTRE CHOI> 
, t I A 6 ) . " 

118 PRINT AC 

120 IF INKEY C= "1" THEN GOTO 13e 

121 IF INKE>*="2" THEN GOTO 200 

122 IF INKEY *t"3" THEN GOTO 39C 

123 IF INKEY f " 
125 



-7) J 1 



- INTENSITE 



,; B3; " 

fx , o ; ft c 
UN RUTRE C 



ENTREZ L INDU 
ENTREZ LR SUR 



ENTRE 



ANGl 



370 PRINT AT 7.0 
. 14; " TESLA <S> " 

372 PRINT RT 9 .© 
-: S4, " METRES 2" 

374 PRINT RT 11, 



, R4,: 



DEGREE" 



376 PRINT AT 13 , I 
. COS R5 

378 PRINT RT 15, < 
f" ",PHI 

380 PRINT RT 17, ( 

3 82 PRINT AT 19.1 



LCUL 



...Q.. 



ou' 



" INDUCTION 

"5URFRCE 

, "ANGLE 

, "COSINU5 

"FACTEUR ""PM 

, AC AT 21,0; A» 
UN AUTRE C 



INKEYC=" 
3 3 6 IF INKEY C = '"N" 
388 GOTO 3B4 
I3 9G CLS 
;92 PRINT AC 

3 94 PRINT "OOOO 
EUR5 OOOO" 

395 LET K»*"l" 

796 PRINT ft*. AT 4 . 
-LULER : " 

398 PRINT RT 6.4." 
ONS (SERIEJ " 

4.00 PRINT ftT 8.4;" 
-"■IS (SURFACE) " 

402 PRINT RT 10,4, 

404 PRINT AT 12 . 4 : 

406 PRINT AT 14.4, 
"-CTRIQUE" 

408 PRINT RT 16 . 4, " -6- ENERGIE 

4 12 PRINT RT 19,0;AS,RCRCRT £ 
UOTRE -" 



LES CONDENSRT 

0, "JE PEUX C- 
-1- RSSOCIATI 
-2- ASSOCIATE 
"-3- CAPACITY 



4 15 IF IN 



.EY* = 



119 



THEN GOTO 69C 

THEN GOTO 430 

THEN GOTO 50D 

THEN GOTO 5©e 

THEN GOTO 615 

THEN GOTO 656- 



THEN LET SC-"CRSC 



ASSOCIATION 



IF INKE 

IF INKEY*: 
a^w IF INKEYC= 
422 IF INKEYC= 
424 IF INKEYC= 
428 GOTO 415 

430 CLS 

431 IF K*»"l" 
^CE" 

432 IF KC»"0" 
^DE" 

433 PRINT AC- "OOO 
EN ";»»j" OOO", AC _ _ „ „ 

434 IF KC = "<3" THEN PRINT AT 6, W 
COM8IEN DE RESISTANCES ?" 

435 IF KC = " 1" THEN PRINT AT 6 , (? 
COHBIEN DE CONDENSATEURS t" 

437 INPUT O 

4 38 IF K»=" 1" THEN PRINT RT 6.0 

"ENTREZ L UNITE ( PF NF MF ) 

440 IF KC«" 1" THEN INPUT B| 

442 PRINT RT 5,0,ACAC 

444 DIM ui..-i 

450 FOR Xsl TO O 

452 PRINT RT 8.0:*ENTREZ LA " : X 
■ IEME URLEUR 

453 DIM U (X) 

454 INPUT U f X) 

455 GOSUB 458 

456 NEXT X 

457 GOTO 465 

459 IF Xil THEN LET U=U (X> 

4 50 IF Xal THEN RETURN 

462 LET U«U*U(X> 

464 RETURN 



****»«» CRPAC IT 
. AC RC AT 8,0, R 
. "L'OICI LES URL 
l; "* UERRE 
' » PLEXIGLAS 

# MICR 
1 * ERU 



705 LET DC=" IEME " 

706 PRINT RT 4 . 0; " * * ENTREZ LR 

■ x; •■ ■■; DC; "urleur *■#" 

706 INPUT M IX) 

7 10 LET MtX)sM(X)**--l 

712 GOSUB 713 

714 NEXT X 

7 16 GOTO 730 

7 IB IF X=l THEN LET M=M (X( 

720 IF X = 1 THEN RETURN 

722 LET M=M*M (X) 

724 RETURN 

730 LET M=M**-1 

731 IF KC="0" RND M ) = 1O00 THEN 
L-ET LC = " KILOHMS" 

7 32 PRINT RT 3 .0, RC RC 
^33 PRINT RT 15, 0. AC RC. AT 20 . P 
RC AC 

73* IF KC = ' 
FTNSRTEURS" 

735 IF KC="0" THEN LET PC="RESi 



THEN LET PC="COND 



5TANCE5- 
7 3B PRINT RT 
DES " 
7 39 PRINT RT 



7.0, ■ L 

9.0, z, ■ 



ASSOCIRTION 
", P», - DON 



RUTRE CAL 



516 PRINT 

517 PRINT AC 

=22 PRINT "RPRES RUO IR NOTE LE 



74 PRINT RT 11.0, 
741 PRINT RT 16, 1 . 
U(_ 1 " "O"' OU " "N" 1 - 
?-? 1% i£1 K ^» = ' °" THEN GOTO 69*.' 
'""EY$ = 'N' THEN GOTO 80 



274 LET B2= 
till /Rl) 

276 PRINT RT 6.0. 
IRES '■-Nl 

277 PRINT " INTEN5 
"; II, - RMPERE (J 

278 PRINT "RftYON 
'.Rl;" METRE (5) " 

280 PRINT RT ll.C 

SSI " TESLR (S) " 
£62 PRINT AT 15 . . AC ■ A * ; AT 20 . C 
AC, AC 

=83 PRINT AT 18.0: " UN AUTRE C 
tLCUL ( ■■■■O"" OU "■■«••-• ) " 
284 IF INKEYC="0" THEN GOTO 26B 
2B6 IF INKEY C = "'N" THEN GOTO 80 
288 GOTO 284 

290 CLS 

29 1 PR INT - » * * INDUCT ION DU SO 
-ENOIDE ##*#" 

293 PRINT AT 3,0, RC 

295 PRINT AT 5.0: "ENTREZ LE NOM 
'3RE DE SPIRES 

296 INPUT N2 

296 PRINT AT 5,0: "ENTREZ L INTE 
US ITE DU COURANT 

299 INPUT 12 

300 PRINT RT 5,0, "ENTREZ LR LOU 
3UEUR DU SOLENOIDE" 

301 INPUT L2 
303 PRINT RT 5 ~ 
305 LET B3= (4* 

tI2) /L2) 

307 PRINT 

308 PRINT "NOMBRES DE SPIRE 
, N2 

309 PRINT 

310 PRINT 
12. " RMPERE o. 

311 PRINT 
3 12 PRINT "LONGUEUR 

: La; " METRE (S) " 
313 PRINT 

31* PRINT "INDUCTION 
7ESI.A (S) •■ 

315 PRINT AT 17,0, AC AT 21 

316 PRINT AT "" 
^LCUL ( -O" " uu r* 1 ~ 

317 IF INKEYC="0" THEN GOTO 290 
3 18 IF INKEY C="N" THEN GOTO 80 
320 GOTO 317 

350 CLS 

3S2 PRINT IIMIH FLUX MRGNET I 

.".it **«»*•*" 

354 PRINT RT 3,0:ACAT ~ 

356 PRINT RT S, " 
CTION (EN TESLR) 

358 INPUT I* 

360 PRINT RT 5 . 
f-RCE (METRES 2 

36 1 INPUT SA 

363 PRINT RT 5 , 
E (EN DEGRE5) 

364 INPUT R* 

365 LET R5= (2»PI/360» *R* 

366 LET PHI= I 14 »S4 fr (COS R5 ) ) 

367 PRINT RT 5,0, AC 
369 PRINT AT 7,0; " 



-flCTEUR DE 

523 PRINT 

" EPSILDN " 

524 PRINT 
R PRSSCR AU 

525 PRINT 



PERMIT IUTTE RELRTIUE 
TRPER UNE TOUCHE POL 
CRLCUL DE LR CRPAC IT 



526 PRINT Rt 

= 27 IF INKE> C 1 

528 GOTO 527 

530 CLS 

532 PRINT •'*»* 



GOTO 53 t 

fc CAPACIT 
3, AC 



5 34 PRINT RT 3 . : R C RT 

535 PRINT RT 5.0. "ENTR 

EZUR D " "EPSILDN 

538 INPUT El 

540 PRINT RT 5.0. "ENTREZ LR SUN 

=RCE DES PLRQUES" 

542 INPUT SI 

544 PRINT AT 5.0. "ENTREZ L ESPR 
CEMENT DES PLAQUES " 

546 INPUT E2 

548 LET C= ( 1 .-9E9) (Elt (SI/ UtPIk 
E2) 1 

550 PRINT RT 4, 0; AC " 

552 PRINT "LR CRPRCITE DU CONDE 
N'bRTEUR" 

554 PRINT "AYANT COMME CARACTEP 
T5TIOUES : 

555 PRINT 

556 PRINT 

557 PRINT 
■ METRE 2 

558 PRINT 
■■ METRE" 

559 PRINT 

560 PRINT 
562 PRINT 
564 PRINT 
FRRRDS" 
566 PRINT 

FRRRDS" 

568 PRINT 
FRRRDS" 

570 PRINT 

571 PRINT Rt; 



745 GOTO 
■50 CLS 

751 LET KC="0" 

752 PRINT RC; "OOOOOOOOO RESISTR 
flCES OOOOOOOOOO "; R- 

75* PRINT RT 4,3. 
LER : 

756 PRINT RT 6.4, 
ES EN SERIES" 

757 PRINT 
75B PRINT TRB 4, " 

5 EN SURFACE " 

759 PRINT 

760 PRINT TAB 4; " 
D UN FIL" 

762 PRINT AT 15 . . AC ■ A C AT 
RC;AC;AT 18,7. "UOTRE CHOIX 



"JE PEUX CALCU 
"-1- RESISTANC 

-2 - RESISTANCE 

-3- RESISTANCE 



R 3) ' 

784 IF INKEY* 

768 IF INKEY ■ 

7S7 IF INKEY* 

768 GOTO 764 

360 CLS 

862 PRINT - ** 
■I FIL ******" 

S64 PRINT RT 3,0, AC 
3LEURS DE RMO OOOOOOOO 

566 PRINT RT 7 .3; " * A' 



THEN GOTO *30 
THEN GOTO 690 
THEN GOTO 850 



- ESPACEMENT - " ; CS 

EST DE 

,TAB 12. " FARADS" 

*10E6,TAB 12," MICRO 

H0E9..TRB IB," NANO 

«10E12,TAB 12, " PICO 



867 PRINT TRB 3, 

868 PRINT TRB 3, 
669 PRINT TRB 3, 
8 70 PRINT TRB 3, 
871 PRINT TRB 3, 



RE5ISTRNCE D U 

OOOOOOOO U 

1.6 E- 

7 E-B 



• RL 



2.8 E-B 



* FE * 9.6 E-6 
t PB t 22 E-B 



* 95 E-B 
DANS LES CRLCULS . 



573 



OU 
INKEYC="0" 
=> ir INKEY* = "N" 
577 GOTO 573 
580 CLS 
582 PRINT "•*•*«* 

*S84 PRINT RT 

585 PRINT AT 
TAGE 

587 INPUT U 

559 PRINT RT 
RCITE 

590 INPUT C3 

592 LET C*=" 



RUTRE CRLCUL 



873 PRINT 

874 PRINT ft*, 
UOUS POUUEZ" 
8 76 PRINT "UTILISER LE SYHBOLE 

DU HETAL S" 

677 PRINT " IL EST DRNS LA LI5TE 

CI-DESSUS" 

376 PRINT " f SA URLEUR EST EN M 
EMOIRE . ) " 

879 PRINT A* 

880 PRINT "TAPER UNE TOUCHE POU 
R CONTINUES" 

302 PRINT RT 21 .0. R* 

382 IF lNKtT('»o -"THEN GOTO BSK 
B84 GOTO 883 
3B5 CLS 

388 PRINT '##*#* RESISTANCE D U 
M FIL 



LA CRP J 



, 16,Cf. AT 4,0; AC- 
"LA CHARGE D U 
SOUS 



594 PRINT AT 
RT 7,0, CC 

596 PRINT AT 6.0; 
M CONDENSRT EUR DE 1- 

397 PRINT C3 , " FRRRDS" 
UNE TENSION DE" 

598 PRINT U: " UOLTS EST DE ! " 

599 LET CC=C3*U 

500 PRINT CC, " COULOMBS" 

501 PRINT 

602 PRINT R$, AS 

6 04 PRINT AT 16 .0 . " UN AUTRE C 

f^LCUL ( ■■■■O"" OU ""N 

6 06 PRINT AT 20,0 . At; At 

&38 IF INKEY*="N" THEN GOTO OBC 

610 IF INKEY* a "O" THEN GOTO SBC 

: i2 GOTO 5 08 

615 CLS 

&17 PRINT ■ trt rt*ii CHAMP ELECTA 



889 GOTO B9B 

390 LET UU=1E 

391 IF Rt= "A 

892 IF R*= "R 
U 

893 IF RC= "F 
U 

B94 IF RC= "P 

S95 IF R|= "H 

896 IF R*i 



CU 



= 1.6* 



" ""JE 



* ** 



319 PRINT AT 4 , 



; RC.. AC.: AT 10, 



"UOLTAGC 



"; DS, 



520 PRINT AT 7.0; "ENTREZ 

o2 1 PRINT "LE UOLTAGE " 

-i22 INPUT U2 

625 PRINT RT B,0: "L ESPRCEMENT 

627 INPUT D2 

629 LET E2=U 

530 PRINT RT 

. U2, " UOLTS" 

6 32 PRINT -ESPRCEMENT 

METRE (SI " 

G34 PRINT RT 13,6, -CHAMP RESULT 

12, 'UOLTS/METR 

"S3B PRINT RT 17.0.RC-RT 21,0, A* 

640 PRINT AT 19.0, " UN AUTRE C 
RLCUL ( "■■O" "• OU ••"N"" ) " 

6*1 IF INKEY*="0" THEN GOTO 61? 

'..-.-:, IF inkev»--n mi'N GOTO Sfct 

64S GOTO 641 

650 CLS 

SS2 PRINT " * 



897 RETURN 

69B PRINT RT 4 

9B0 PRINT RT 7 

1MGUEUR DU FIL ' 
9B1 INPUT L3 
903 PRINT RT 7 

ACTION DU FIL t 
=04 INPUT 54 

906 PRINT RT 7 
MISTftNTE " "RMO"' 

907 PRINT "QUI 
I .TERIAU 7" 

90S INPUT R* 

909 GOSUB S90 

910 LET RR=R j IL 
9 12 PRINT RT 7. 
Rj " 

9 14 PRINT RT 6, 



THEN LET 

THEN LET R=2.B« 

THEN LET Rc9.&« 

THEN LET R=22*<_ 

THEN LET R=95*V 

THEN LET R«1.7* 



O, ;;OUEL EST LR 5 

B ; "ClUEL E5T LR - 
CARACTERISE LE M 



RHO 
SECTION 



916 PRINT 

ETRES ■' 

918 PRINT RT 



LONGUEUR 



919 PRINT RT 13 ', 0.: RES ISTRNCE^ * 
, RR, " OMM5" 

322 print rt 16,0, rc. at 20,0, r* 

923 print rt ib, 
:ul 



1,;UN AUTRE CAL 
THEN GOTO 80 



925 IF INKEY C = ""N " 

927 IF INKEY*="0" THEN GOTO 8 

928 GOTO 925 
1000 CLS 

1010 PRINT "*••*#• FORMULES DE 

RSE *******#" 

1012 PRINT RT 2,3. 



G54 PRINT RT * . 

C RC 



*»>**« ENERGIE 

, AC AC- AT 9, 0, A 

, "ENTREZ LE UOL 



"ENTREZ LA CAP 



656 PRINT AT 

■ nss" 

558 INPUT U3 

660 PRINT RT 
=CITE " 

662 INPUT C3 

664 LET U= . 5 1 (U3*U3) (C3 

666 PRINT AT 6, 0; At ■ A* 

668 PAINT RT 9,0: "L ENERGIE D 
•-i CONDEN5RTEUR DE' 

6 70 PRINT RT 10 . 0: C3 . " FRRRD5 
H'JS UNE TENSION DE 

672 PRINT U3 . " UOLTS E5T DE : 

£74 PRINT U, " JOULES " 

6 75 PRINT 

678 PRINT AC AC AT 20.0. AC-AC 

68O PRINT RT 16.0, " UN RUTRE 
ALCUL ( ■■••O"" OU •■•■N-" ) ■■ 

6B2 IF INKEY C«"0" THEN GOTO 65 

53* IF INKEYfi "N" THEN GOTO B0 

6 86 GOTO 662 

690 CLS 



694 IF K»="l" THEN PRINT AT 4,6 
COMOIEN DE CONDENSRTEUR5 7" 

BBS IF K*."0" THEN PRINT AT 4 .( 
COH8XEN DC RCSI5TRNCES 1" 

696 INPUT Z 



101* PRINT TAB 3. 

1016 PRINT 

1018 PRINT TAB 3, 

1020 PRINT TRB 3: 

I.T" 

PRINT AT 5, 16, "2 - 



LOI D C 
■ R.I" 

ENERGIE 



1022 PRINT RT 6,3; ' 

102* PRINT TAB 3. 

1025 PRINT 

1026 PRINT TAB 3. 
HIE *" 

1023 PRINT TAB 3, 



PUI55RNCE 



ENERGIE FOUR 
PRR LE GENER 



1033 


PRINT 


TRB 




■■» 




UN FIL. #" 














PRINT 


TRB 






























103B 


PRINT 


TAB 


*; 








O JOULES" 












10 39 
UAT1 


PRINT 


TAB 


3. 


"i 


CMEUAL » 


7ae 




= «"" 


■■ 


■••iinumi« 












































1050 


CLS 














PRINT 








RTIF 














1053 


PRINT 













Suite page 12 



GESTION FICHIER 



Creation, recherche, tri, copie..., bref, tout ce qu'il faut 
pour une bonne gestion de fichier, avec sauvegarde sur 
cassette. 

Pierre WRIGHT 

i rem x*x*x#;-;*x*x*x*x#x*x*x*x*x*x*x*x*x 

2 Rem ... x#x 

3 REM X*X PROGRAMME lit FlbHlek X*X 

4 REM ;,♦,. PIERRE WRIGHT 19/09/83 X»X 

5 rem ::♦:; version du — : 27/03/83 x*x 

6 REM X*X x*X 

7 KEN ..♦;-.♦:■,♦,, *X*X*X*:-:*x*..*: ;«;-;♦;;*;:*; ;*;■;*;■; 

8 REM 

9 REM 

IS PRINT CHR*<147) PRINT CNR* (144,1 POKE 53280 ..6 POKE 53281,6 
13 GOTO 500 

20 PRINT":)*************************.**************" 

21 PR1NI"***** OESTION DE FICHIERS ******" 

22 PRINT"***** PIERRE WkluHT 1963 *****»" 

23 PRINT"*******.*******************************-*-" 

24 RETURN 

30 REM 

31 REM CREATION DES VARIABLES 

32 OOSUE 20 

33 PRINT"**" 

34 FRUIT" HON DU FICHIER A CREER >'\ 

35 INPUT NF» 

40 PRINT"*! NOMBRE HE DuNNEEb MAXIMUM 15 ", 
■' INPUT Nil 

THEN 45 
THEN 45 



42 IF HD S 

43 IF NK-fl 

44 GOTO 50 

45 PRINT"!"- PRINT TAB^32.<" PRINT'TIT'. GOTO 48 
5u PRINT"*] NOMBRE HE FICHES HRXIMUN 300 "i 

51 INPUT NF 

52 IF NF > 300 THEN 55 

53 IF KDC-0 THEN 55 

54 GOTO 60 

55 FRINT"!", PRINT TAB". 32V " PRINT"!!", OOTO 50 

60 PRINT"******* ETES VOUS IT ACCORD iO/tO -->" 

61 GET R« IF R*=""THEN 61 

62 IF RJ="0" THEN 80 

63 IF R*="N" THEN 30 

64 GOTO 61 

7@ REM 

71 REM III MENTION DCS inBLEAuX 

72 REM 

73 IF RUJ="«" THEN ; 



74 DIM LAJ'.ND-.NJ'.NF.NDf.XGJ-tNF+lj, 

75 RU*^"«" 

76 RETURN 

80 REM 

81 REM CREATION DES LIBELLES 

82 REM 



WttNF+1/ 



G 



■ii GuSUB «:o GOiOB 70 

34 PRINT"* 15 i.HpHLTEPE:- Mm.JMIJM- PRINT"*" 

85 FOR I = 1 TO ND 

90 PRINT "INTITULE >"ili IHPUf LB* 

32 IF LBJ='" THEN 37 

95 IF LEN-.LB*; 3- 15 THEN 97 

96 GOTO 108 

37 PRINT"!", FOR 13= 1 TO 70 PRINT" ".NEXT 13 PRINT PRINT"!", 
98 LB*="" GOTO 30 

100 FOR II =1 10 15-LEN<:LB*J' 

101 LBJ=LB*+"." 

102 NEXT II 

103 U»(I>«LB$:LB»="" 

104 NEXT I 

110 REM 

111 REM AFFICHAGE DES DONNEES 

112 REM 

113 GOSUB 20 

115 PRINT"**" 

116 FOR I =1 TO NH 

11? PRINT I, PRINT" ", -PRINT UttCI) 
118 NEXT I 

120 PRINT"* ETES VOUS D ACCORD (O/Nj — >" 

121 GET RJ IF RJ=""THEN 121 

122 IF R$="u" THEN 158 

123 IF R*="N" THEN 125 

124 GOTO 121 

125 PRINT-XiOELLE PUBP1QUE VQULEZ VOUS CHANGER ". 1NF0I R 

126 IF R? ND THEN "!", OOTO 125 

127 IF R=; THEN PRINT"!". GOTO 125 
123 PRINT "INTITULE >",R; INPUT LB* 

129 IF LBJ="" THEN 132 

130 IF LEH'.LB*) > 15 THEN 132 
i3i wlu 134 

132 PRINT"!". FOR 13= 1 TO 70 PRINT" ", NEXT 13 PRINT PRINT"!", 

133 LB*="" OOTO 128 

134 FOP II =1 TO Hj-L£Na&*> 

135 LB*=LB**"." 

136 NEXT 11 

137 LFH\R.>=LB* LB*-"" 

138 OOTO 110 

150 REM 

151 RE.1 - - SF1I5IE DES FICHES A ° 

152 REM 

153 DF=1 

154 FOP I = DF TO NF 

155 GOSUB 20 
168 PRINT"* SI VUU= AVEZ ItRMlNE " 

170 PRINT TAPES Flu BANS — >" ■ PRINTLAJ< 

171 FRIHI" FICHE NUMEFQ — >",I 
180 PRINT"*" 
200 FOB 8 ■ 

210 PKINI I 

215 INPUT N1J 

216 IF Nl*»"" THEN 220 

217 GOTO 225 

220 PRINT"!", FUR 12=1 

221 PRINT" "PRINT"!", 

225 IF N1J="FIN" THEN 22S 

226 GOTO 230 
228 I=NF NU=NF-1 GOTO 250 

230 NJ<I.B.<=N1* Nl*="" 

231 NEXT B 

232 GOSUB 20 

233 PRINT"**" 

234 FOR B = 1 TO NB 

235 PRINT B. PRINT 8PCO-U 

236 PRINT NJU.Bj 

237 NEXT B 

238 PRINT" Wl VOULEZ VOUS MODIFIER iO/H>" 

239 GET R* IF R*="" THEN 233 

240 IF RJ»"N"THEN 243 

241 IF RJ="0" IHEN *43 

242 GOTO 239 

243 PRINT " QUEL NUMERO ". INPUT B2 

244 IF B2=0 THEN PRINT"!", GOTO 243 

245 IF B23-ND THEN PRINT "IT" i GOTO 243 

246 PRINT B2, PRINT 3FC . S-LEN'.3TR*..B.- .< >U 

247 INPUT N*(I,82) 

248 GOTO 232 

249 NU ■ I 

250 NEXT I 
252 NF=NU 
£78 REM ****** **♦*♦*****♦«*♦***♦******♦ 

271 REM ***** MISE EN FICHIER ******** 

272 REM *♦♦****♦♦**♦.♦*♦*♦***»*♦♦*♦***** 
278 GL'SUB 380 
274 NU=FIF 

298 IF NF*="" THEN GOSOB &70U 
295 OPEN 1 , l , l , NF* 
23b NU*=STR*'.NUj ND*=STP*<;ND^ 
297 PRINTttl.NUJ PRINTHl.ND* 
238 FOR I - 1 TO ND 



PRINT SPC(3-LENiSTRt(BJ»U»<S)J 



73 PRINT" 



STRJ'.fc^jLA*'.*;. 




259 PRlNTtU.LAJ.l • 
300 NEXT I 

305 FOR I = 1 TO NU 

306 NJ'!.0-=STRJ'.I> 

311 FOR B= TO ND 

312 PPINTIU.NJ 1,6/ 

313 PRINT N*i.l, %, 

314 NEXT B 

315 next : 




317 



CLOSE! 



■MM 



■ 60 IV 

- GOTO ..mm 

380 REM 

381 REM INTRWiUbTiUN CA&SETTE ECRITURI 
38*: REM 

2H uuSUB 20 

384 PRIHTMr 

385 PRINT" PLhLE^ lh Cft«&ErT6" 

:■?■: rKlm REI1B0BINEZ lh CASSETTE" 

38 r FPINT-IOM EIE3 VUUS PRET \0> ?" 

3tf: ; : GET P* IF R* = "" THEN 38a 
383 IF R*t "u" irttH joe 
39u 1-hiNi' 



3.-4 RETURN 

400 REM ****** 

401 REM ***** 
40^ REM »«♦*»* 



LECTURE Fli 



*»»*♦*♦*♦*♦♦♦+♦ 



11EF 

♦ ♦•♦*■ 



cO 



OSUB 4 
494 if nF-»=-" THEN GOSUB 6700 
405 OPEN 1 .1.0.NF* 
40ti INPUT »1,HU* INPUlKl.lir* 
407 NF=VrtL',NU4/ 
40b ND=VrlL'.NDJ i 

4W If- PVJ:-'**'- THEN L-U'JJI P?C.< 
410 GuiUB 70 
42? FOR I = 1 Tu VAL<ND* 

428 INPUT#1,LHJ'.I- 

429 NEXT 1 

430 FUR 1 - 1 iu VhL'.NU* 

431 FOR B= TO VALtNO 

432 INPUTttl 

433 NEXT B 

434 NEXT I 

435 CLOSE 1 

436 RETURN 

450 PEN 

451 REM -INTRODUCTION CASSETTE LECTURE 

452 REM 

453 GOSUB 20 

454 PRINT "JUWI" 

455 PRINT" PLACE2 LA CASSETTE" 

456 PRINT' REMB0B1NEJ LA CASSETTE" 

457 PRINT "*» ETES VOUl PRE! -.0^ '" 

458 GET RJ IF k*="" THEN 458 

459 IF RfO "0" THEN 458 

460 PRINT"** HPPUVE2 SUR S PLAV:. ■ 

461 PRINT"** ETES VOUS PhEl CO? ?" 

462 GET hi IF R*="" THEN 462 

463 IF R«0 "0" THEN 462 

464 RETURN 

500 REM ******************************* 

501 REM MENU 

502 REM ******************************* 
50: _■_-..-£ ,.>.- 

504 PRINT"**" 

510 PRINT" 1 - CREATION DE FICHIER 

511 PRINT 

520 PRINT 

521 PRINT 

530 PRINT" 3 - AJOUTER DES FICHES 

531 PRINT 

540 PRINT" 4 - NTERRQQER 

541 PRINT 

550 PRINT" 5 - LISTER DES DONNEES 

551 PRINT 

555 PRINT" S - FIN DE TRAVAIL 

556 PRINT 

530 PRINT" VOTRE '.HulX M-2-3- 

531 GET fit IF R*="" THEN 531 

532 IF VAMR*) > 6 THEN 531 

533 IF VAL<Rf) <=fl THEN 591 
595 ON VAL<R*j GOTO 600,70b, 

600 REM 

601 REM CREATION 

6^ REM 



■o< 



J# «l 



HuDlFlCftTION DE FICHIER 



9tt)i 1000,3330 



MODIFICATION 




OOTO 30 

700 REM 

701 REM 

702 REM 

705 IF ND, 1 THEN , u. 
7u6 SO&UB 400 

,'0.' GOSUB 20 

708 PRINT PRINT PRINT 

703 PRINT" QUEL NUMERO VOULE; VOO;- MODJF ItR-?" ■ 

710 INPUT MF* 

711 IF -/NL'.NF*/-. I mHD '/AL'MF*,: NF THEN 710 

712 MF = VAL'NF*.f 

713 GOiUB 20 

714 FOR 1 =0 TO ND 

715 PRINT SPCii.'I, LA*'.Iy. !«•.», i , 

. lb NL. i , 

717 PRINI"* QUELLE DONNEE A HOJDIFIER 

718 PRINT" 51 FIN DES HODIFS TAPE2 -->99", 
713 INPUT B21 

720 IF VACB2JX U HUH vHL< B2* ■. ND THEN 71? 
?2l B2-VALXB2*) 

Y 722 IF 62=33 THEN ?JV 

723 PRINT SPC<3M.LA*'B2'. INPUT N*CMF.B2> 

724 IF N*'NF.B2>="" THEN 723 

725 GOTO 713 
?35 IF R*="N" THEN 70? 

V736 GOTO 733 
EO0 REM 

801 REM nJUUItk DfcS hICHES 

802 REM — — — 

803 RUN 305 
305 RVJ="**" 

, ■.». ■■. 3UB 400 

810 -010 154 

870 REM 

871 REM NOMBRE DE FICHES Ft MJOUtER 
$?L PRINT '■*«**" 
87 3 G03UB 20 

875 PRINT" IL V A ".NF" FlLHEV 
8?b FPINT"**" 

a// F-RiMi ' C0M61EN V0ULE2 VOUS EN AJOUTER ". INPUT NA 
878 IF NH ■ THEN 877 

87? IF HA+NF? 100 1HEN PRINT " IMFUo-sIBLt 100 MA.-.l " GOTO 577 
dbW FRINT"*** ETES VOUb D hlCORD ■ 0/N > " 
891 UEI R* IF R*="" THEN 881 
102 IF R*="N" THEN 873 
8b3 IF P»= l, u" IHtN 8a5 
884 uufu 8U0 
b'85 NF = NF+NA IlF=HF-Nfl+l 

886 RETURN t 

330 PEN 

831 REM lNItkKUOt 

i^ FEU 

300 IF NF: 1 THEN y03 



UB 340 



F CH1=' 



THEN 355 



-INTERROGATION iUlVANI HUM 
.'07 PRINT "«WI QUEL HUMER'J V0ULE2 VOUS LISTER:' 1 
i*08 INPUT NL 
303 IF NL = THEN 90? 
310 IF NL . NF IHtN 30? 

315 PRINT "NUMERO ', " .NL 

31b FOP 6= I TO NL 



917 PRINT 3PC'3'LR*'.Bj,N*<NL,B/ 

318 NEXT B 

313 PRINT"** POUR lONTINUER APFUVES SUR UNE TOUCF 

320 GET RJ IF R*="" THEN 320 

980 PRINT"*** UNE AUTRE FICHE ' O/NJ ?"- 

331 GET RJ IF R*="" THEN 331 

fti2 IF Ri="0" THEN 305 

y^i IF R*="N" THEN 500 

984 GOTO 331 

i>40 REM 

341 REM rtOBE Dt LlSTAGE 

94i KEII 

94 3 GOSOB 20 

344 PRINI'«l»UW" 

945 PRINT" VOUS VOULEZ INTEKftUOtR " 

94b PRINT"** l = UN NUMERO DE FICHE" 

947 PRINT".** 2 = UNE I'UNNEE (EX NOMj 

948 PRINT"** VOTRE LH'Ji., \\/Z> 
343 GEI RJ IF R»»— THEN 943 

950 IF RJ="1" THEN CH*="1" GOTO 954 
351 IF R#«"2" THEN CH*="2" GOTO 354 
95^- GOTO 348 
354 RETURN 

955 REM LlSTAGE INTERROGATION SUIVANT DONNEE 

956 'vOiUB 20 

957 PRINT PRINT PRINT 

958 FOR 1 = l Pj ND iifcP 2 
35y PR1N1 SPC' 3^1. LA*' I) 
360 NEXT I 

961 PRINT "*' PftlNrflMHH" 

962 FOR I = 2 TO ND STEP 2 

963 PRINT SFC-20-I.LA*. 1 .■ 

964 NEXT 1 

9»5 PklNf num. QUEL CRITERE DE SELECTION" 

966 PRINT"** VOTRE CHGIX CI ETC— ,", INPUl H 

96? IF W ; ND THEN 9bb 

969 IF II <= v i HEN 366 

STB PRINT" DONNEE RECHERCHE ". INPUT DPI 

971 IF HR*="" THEN 970 

9?i FOF I = 1 TO NF 

3?4 IF NJ'. i,Ui=UK4 THEN G08US i^ 

975 Nt..l i 

976 FFINT 1 UNE HUlRt FICHE '.U-'N'" 
9,'7 p.5ET F* IF RJ="" THEN 377 

978 IF R*»"0" THEN 970 
9?9 GOTO 5B0 

9B0 PEM MFFICHAGE SELECTION 

9S^ PRiNT"*- 

983 PRINT "NUMERO > "■H$kI,0j 

384 FOP B= 1 Tu ND 

■?$Z> PRINT SPCC3)Lfl*'.E>,N»U.B.'' 

986 NEXT B 

987 PRINT"** POUR CuNTIMULR APPUVE2 SUR UNE TOUCH 

988 uET RJ IF R*»"« THEN 388 

989 RETURN 

K'OO REM 

1001 PEM LISTER 

10ti2 REM — 

1004 IF NDI 1 THEN 1020 

1010 GOSUB 4wo 

1020 uuiUB 20 

1030 PRINT PRINT PRINT 

1040 FOR I - 1 TO ND STEP 2 

1050 PRINT SPC<3JI;LA*a) 

1060 NEXT 1 

1070 PRINT '«' FRlNi "M*M*J)" 

10bO FOR 1 = 2 TO ND STEP 2 

1030 PRINT SPC'^O.'I.LHJM^ 

1033 NEXT I 

1105 PRINT" W** QUEL CRITERE Dt fRI 

1110 F'KINT «*i VOTRE CHOIX '.1 ETCJ — >*i 

1111 INPUT U 

1112 IF W ;- ND IHEN 1110 

1113 IF U ;= THEN 1110 
1115 GOSOE 6500 

111b GOSUB obS'J 

1117 UPENJ.TE 

1118 CMB3 
114y GOSUB 28 

1150 FOR I = I TO XI 

1155 PRINT"*" 

1156 PPINit3 'CLASSENENT— , 'M.1- 

1157 PRIHT»3i "NUHERU > " ,H*'.XH( 1.-.0J 

1165 FOR B= 1 TO ND 

1170 PRINT»3,SPCOjLA*CBJ;N*(XH(I),BJ 
1180 NEXT B 

1130 PRINT"** POUR CLUliiNOtK HFPUV62 SOP UNE TuulI 

1131 GET RJ IF R*="" IHEN 1131 

1135 HE/ I 1 

1136 CLOSE 3 
b433 GOTO 500 

^500 PEM 

n5oi REM TRI ALPHA 

651U XD=NF 

6530 XI =0 

6540 FOR 1=1 fO XD 

c55u X1=XI+1 

6560 NEXT I 

6570 K=XI 

6580 XD=0 

6590 FOR I = 1 TO 1.-1 

6600 IF XGJ'.Ul.' .XGJU ■ THEN i 

6b 10 GOTO c 



/*N*«,XIJ 



,GJ- 1 I 



GJ' 1*1 ■ 



■ 1 



6625 XH'. 1 + 1.' = 

6626 XD*1 

■.',.0 lit,-. I I 

6640 IF r.U=l THEN K=K-1 GOTO b53. 

6650 RETURN 



6681 REM - 


- SELECTION TERMINAL 


._ 


6582 REM - 


SUR ECPAN >3 




i>Lti3 REM - 


SUP 1MFRIMHNTE —i 4 




6684 REM - 







. GOSUB < 
' FkifN'"*H*lH" 

i PRINT" '.'OUS DE31RE2 LISTER SUR " 
PRINT"** SUR ECRAN , 3" 

: PRINT"'*!) ; .i.iR IMPRIMANTE , 4" 

! PRINT"** VUIRt CHOIX =====. " 

i GE! R* IF PJ="" THEN 6635 

i IF UALtfi*J" 3 THEN lt= 8 OOTu 6b33 



€69? 


lh VhlL R*-"= 4 THEN TE= 4 GOTO -,6^' 


€698 


GOTO 669^ 


S£?9 


RETURN 






6701 


REM NOT! JXi FICHIER 


6702 
6703 




GOSOB 28 


6704 


F'FiNT"MBW*««»l HUM DU FICHIER ". 


6705 


INPUl NFJ 




PR1NT"3" 


b707 


RETURN 


9000 


PEM •♦♦♦»»♦*♦♦♦*♦*♦**♦♦♦♦♦**♦*♦*♦« 


9001 


REM ***** C0F1E DU FICHlt* »»»»» 


3002 


REM ft**************************** 


9010 


GOSUB 20 


3011 


PFriNT H M*MM 


3012 


PRINT" VOULEZ VOUS UNE AUTRE 


9013 


PRINT"** COPIE DU FICHIER CG/N) 


3014 


GET RJ IF R*=' ' THEN 3814 


9015 


IF RJ="0" THEN ^Tid 


■-u.il ., 


IF R*="N" THEN 823 


9017 


GUTO 50i 4 


3330 


REM ****************************** 


9931 


REM ***** Fid Dt TRAVAIL ***** 


:'^J<; 


PEM ******»*************«***»****. 


9-j- ■•: 


GOSOB 20 


9994 


PRINT ■'■•■■■,■ 


3y&5 


PRINT" U AU REVOIR ■" 


r?9£ 


PRINT" «« a ET A BIEHTOT B" 



MISSION SUICIDE 



La mission est plus qu'une mission-suicide, c'est une veri- 
table operation Kamikaze : traverser un terrain decouvert 
a bordd'un camion charge d'explosifs.et sous le feu nourh 
des mitrailleuses ennemies ? 

M. NORMIER 

Ce jeu necessite une extension de 3K RAM. Pas plus, car sinon il faut 

modifier tous ies "POKE" qui permettent de creer le nouveau genera- 

teur de caracteres 

Ce jeu peut par contre.etre utilise sur une version son etenduede VIC a 

condition d'enieverla presentation, la regie dujeu. Ies "REM", eten ne 

laissant aucun espace. Attention, ca rentre juste. 

PRECISIONS SUR LA REGLE DU JEU : 

Si Ion arrive a rapporter 3 caisses, on beneftcie d'un camion supple- 

mentaire. 

- On perd son camion a chaque tois que Ton est touche. 

- On ne perd la vie, que lorsque Ton est touche avec le camion charge 
de munitions <au retour). 

- Le nombre de camions restants est symbolise paries camions dessi- 
nes en haut de I'ecran. 

- Le nombre de vies, par les bonshommes sous Ies camions. 

- On ne peut se taire toucher que sur la partie de route dessinee 

- Un bip-bip aigu, signitie la perte d'un camion 

- Un bip-bip grave, signifie la perte d'une vie. 

* Cinq bips graves, signifient qu'une caisse est arnvee a destination. 

- Le score est calcule de la maniere suivante : 

1000 points par caisse rapportee et —1 point, par unite de temps. 
D'oli I'interet de se depecher. 
Deplacement d'un camion . A pour aller vers la gauche de I'ecran, 

D pour aller vers la droite de I'ecran. 

Les marches arrieres sont autorisees. 




1 PEM***+*******»*t»*» 

2 REM 
i REM MISSION SUICIDE 

4 REM POUR VIC 20 

5 REM 

.-: REM FAR 11. NORMIER 
7 REM 

3 REM*****«****«*»***# 

10 REM PRESENTATION 
20 PRINT":}" 

38 FOR A=r636 TO 7701 POKE ft. IS 

48 FOP A=772i Tn 8185 STEP 22 : F 

50 FOR A=81S4 TO 8164 STEP -II 

*U FOP R=&142 TO 7702 STEP 22 

80 PRINT"I«MI* MISSION " 

99 .- .*»►■!;. SUICIDE 

100 FRINT"«l*Mia 

HO REM HAUTE RE SOL UT HUM 

120 F0KE56-2S P0KE52-25 CLR 

130 G=7168 

140 FOR 1*33792 TO 34S07 

150 POKE O.PEEKU; 0*0+1 

160 NE*T 1 

170 FOR 1=1 TO 88 

180 read a pokeo.a 0=0+1 
190 ne>;t i 

zee G=755i 

210 FOR 1-33151 TO 33231 

ZLQ FOf t 'V-FELKM ■ L.= ---l 

230 NEXT I 

2j5 IMRUT'mMBFORrE -1 fl 3 ' " ■ f 

236 FF=INT(FF) 

237 IFFF;-30RFF-.ITHEH235 

£40 PRINT , 'WaiPEOLES (d/H)?" 

25e pqsub 9990 

260 IF A*="N"THEN 2?6 

270 IF A«O"0"THEN 250 

230 COSUE 9500 

2?0 REM RFFICHROE 

300 "111=5 VI=>2 "IS=0 V-36073 8C«< 



COMMODORE 
V\C20 



POKE 36869.255 
POKE V+5.10 

PRINT' 1 30W*P1ISSI0HtSUICIDE*«M" 

PRINT"* 1 ' 

FOR H=l TO CM PRINT"£]";:MEXT H 

PRINT'r 

FOR N=l TO VIPRINT'T. "■•NEXT N 

FR1NT' WHWWlWWir.Hl^ESrSCS 

SC=I"-r IF SCO THEN SL=9 

PRIMT'-^LORE**B",SC 

FRlNT"nnEILLEIJR»S':OREi".HS 

FP1NT"IBOBMO»:«IB]B" 

FOR N=l TO 20 PRINT TfB(N)i"I"i HEXT M 

REM BOULLE PRINC. 

IF PEEKU9?> = 17THEN V=Y-1 OOTO 60S 

IF PEEK'.197> = 18THEN V=V+1 GOTO 800 

T = T+1 

IF CINTCRN1KTI+I)#i4-FF))+1K>1THEN 520 

rR-IHT<RND<TI 1*10+1 i 

IF PEEK'.8053+2«TRK; -32THEN I «** 



555 POKE 30773+2»TR2 POKE 33"4*2»TP.2 POKE 8B53 + 2tTP S4 POl E 8*54*?*TP,35 

569 fop P-l TO 15 POKE V+4.200HEXT P POKE 8053+2* TR. 32 POKE 3054+2+1R.32 POKE V 
+4.0 

570 GOTO 520 

600 REM IiEPL. GAUCHE 

■=.y5 P">E :3055*2*' V+l •■ 'a- -"it 805- + 2»' VI ■■ :2 
eiS IF AR1="R"THEN 680 
e~.2i? IF V<OTHEH 650 

630 POKE 38775+2«y,6 POI'E 38776+2*V-6 POKE 80.55+2*7-2* POKE 8056+2*Y29 
640 SOTO 932 
650 Y=-l 

660 POKE 33774 6 POKE 8054,2? 
670 OOTO 532 
686 IF VCOTHEH 710 

690 POKE 3S775+2*V.6 POKE 3S776+2*V.6 POKE 8055+2*7. 30 POKE 8056+2*7-31 
790 G0T0532 

7tO CS=CS+1 D=D+1000 ARS="m" 
711 IF D=jO0uTHEN CM=CM+1 

?12 POP J=l TO 5 POKE V* 1.200 FOP P-l TO 100 NEXT P POKE V+l -0 rliR P=l TO 100 HE 
:T NE..T 
715 .-.-i-v [MMMMI 

71© iC=»-T IF SClOTHEN SC=0 

718 PRiNT-'iioiiiorjoc 

719 IF CS=5 THEN POKE 3686? ■ 240 PR INT rr/.JU:. HVE2 RAMEIIE 'villi 5 C*i 33E8.ERHV0' " C* 
OTO 2000 

729 POKE 33774. 6 POKE 8054.29 

730 GOTO 532 

300 REM DEPL. DROITE 

810 POKE 8055*2*<Y-1 .,32 POKE 3056+2*'.Y-l> , 32 

820 IF AR*="R"THEN 890 

830 IF 7>9THEN 860 

840 POKE 38775+2*7, 6- POKE 38776+2»V.6 POKE 8053+2*7.26 POKE 8056+2*7.2? 

350 uuto 532 

860 V=!0 AR*="R" 

S7H POKE 3S775+2«Y.6 FOKE 8055+2*7.30 

880 GOTO 532 

890 IF V>9THEN 920 

900 POKE 38775+2*Y.6 Put.E 38776+2*Y,6 POKE 3055+24Y.30 POKE 8056+2+7 /I 

910 GOTO 532 

920 V=10 

930 POKE 38775»2*Y.6 POKE 8055+2*7-30 

340 GOTO 532 

100O REM TOUCHE 

1005 POKE 38773+2*TR,2 POV-E 33774+2»TR.2 POKE 8053+2+TP. 34 POKE 8054.2*TR,35 

1006 FOR P*l TO 15 POKE V+4.200 NEXT P POKE B053+2*TR.32 POKE S054*2«TR.32 POKE 
V+4.0 

1010 CM=CM-1 

1020 FOR W=l TO 2 POKE V+3.240 FOR 0-1 TO 200 NEXT POKE V+3.0 FOR 0>1 TO 200 N 

EKT : NEXT 

1025 IFLM=01HEN POKE 3688? 240 PR INT "Tt.'OUS HVE2 UTILISE TOUS 703 CAMIONS.!' 1 - 

GDTP2000 

1030 IF fiR*="R"THEN 1050 

1040 GOTO 400 

105.0 ■■-■' I=VI-1 

1055 FOR U=l TO 2 POKE V+2.200 FOR P«l TO 100 NEXT F POKE V+2.0 FOR P=l TO 100 N 

EXT : NEXT 

1060 IF7I=0TMEN P0KE368S9/240 PR I NT " 7J#.'0US flvEZ UTILISE TOUTES VOS VIES'!" 

OT 02000 

1070 GOTO 400 

2000 REM FIN 

2005 SC=D-T IF SC<0TMEN SC=0 

2010 PRINT'JOIk.aiTrORE !".SC 

2020 IF 6OH8THQ riS=SC 

2030 PRINT-BlsriEILLELiR SCOPE !".HS 

2040 PRINT"1IENC0RE <.Q/H> ?" 

2050 G0SU6 9990 

2060 IF Rf»"0"THEN 300 

2O70 IF fl*-"N"THEN END 

JBOB OOTO 2050 

»00 REM REGLES 

9505 PRINT'TJW MISSION SUICIDE !" 

9510 PRINT"II»/OTPE BmSE NFMOUE DE MUNITIONS." 

5520 PRINT-VOUS FILLEZ EN CHERCHER5 MISSES." 

9530 PRINT'POUR CELFI. IL VDUS FMUT TRAVERSER UN TERRAIN DECOUVERT SOUS UN FEU HOU 



9548 PRINT 1 '«BTTENTION,V0US N- 

9550 PR I NT "IB POUR GAUCHE 

9560 PRINT'-SMTHPEZ SFETURN! 11 

9570 OOSUE 9930 

9680 RETURN 

9990 GET Ht IF «*=■"' THEN 9990 

3535 RETURN 
O000 D*T8 25.25.255 1 38 1 88 . 1-6 . 36 . 102 
0010 DATA 0.0O.0.0.255.24.24 
0020 DATA 8.56.36.62.62.254,24,24 
0030 DATH 0.28,37.125.125,127,24.24 
0040 DATA 0.254. 254. 254. 1^4. 255. 24. 24 
0050 DATA 0.0.8,0.0.0,0.0 
0060 DATfi 255. 0.0. 0,0, 0.0,0 

'0 DATA 132,68.34.13.9.229,24.3 
:0 OATA 33,34.68.72.144.67.24.192 
0090 DATm 255.255-255 255 255 . 25 c .-255- 255 
0100 DATA 128.192.224.240.248.252.254,255 



ET 5 CAMIONS' 1 



COLLEUR ELECTRONIQUE 



Lordinateur aura fout fait : reveil, jeu, machine a ecrire, 

gestionnaire.mathematicien.etcilmanquaituneactivite 

a son palmares ; COLLEUR ! 

A quand la pose du papier peint ? 

Eric JEAN-ELIE 

Le colleur est en fait un fichier qui permet de stocker des questions et 
des reponses sur cassette Ce programme sera Ires utile pourceux qui, 
commemoi, sont etudiants en medecineet qui, en anatomieou en his- 
tologic par exemple. doivent apprendre par caeur un tas de definitions 
Le meilleurmoyen pour y parvenir est de se reunir a plusieurs etudiants 
et de se poser des coiles. Ce programme permettra de se faire colter, 
seul devant son ordinateur. let, un TRS 80 

Lutilisation de ce fichier est tres simple. II suffil de se laisser guider par 
le programme qui donne toutes les indications. 
Ce fichier permet d'etiqueter chaque question dans un code de 4 let- 
tres. 
Exemple : AG - Anatomie generale 

MBSP - Membres superieurs 

HIST -Histologie. 
On peut ainsiproceder a une ecritureetunelecturedecassette.de ma- 
niere selective en repondant a "code ?". 

Le mode 4 (Colleur) vous posera toutes les questions contenues dans 
le fichier On ne pourra sortir de ce mode, qu'apres avoir repondu cor- 
rectementaumoins une fois a toutes les questions. Une note sera attri- 
bute a la fin de chaque colle. Elle est severe, mais lorsque Ton veut pre- 
parer un concours.. 



TRS 80 



MEMOIRE *(FHE<BE>f" 

OUELLE option = 
lie G0SUB98 flS-flS-49 
120 : c fl5MnffRS<lTHENiiB 

is? CNf=::-a:00o.2eee3000 430C 

1000 0-"" GC-Q OS-O'CLS PRINT" 



CHflRCEMENT K7 



NOMBPE DE QUESTIONS DEJP. EN HEHOIRE ".NO 
1010 1NP1JT"C0CE DE Lfl QUESTION ",QC 
1020 INPIJT-CHHRCEMENT fi Lfl SUITE (0UI--NON1- ,0S 
1030 INPiJT"TflPEZ 0^ "it I' r Q< v, CK"THENie0 
1040 IFOS'>"OUI"flNOOS'^ , 'NOH' , THENl000 

1030 iFLEN<o:»*THENieee 

1060 IFLEHtQCK4THEH0C-0C*" ■'■ GOTO I960 

1070 IPQS""NON"THENHQ'e 

1080 INPUT*- 1.0 IFQ-"STOP"THENCOTO1O0 

1090 0K-LEFT«CQ,4) IFOCO- -flNOOKOOCTHEN INPUT* -1,0 GOTO1000 

1180 INFUT»-1.R NQ-NO-M KNU.wO RCNO)-R PRINT"*", .COTOIBBB 

1110 NO-NO*I INPUT»-1,R!N0) COTOiee0 

2000 QC*"- 0»-OCCLSPRINT" ECRITURE SUR K? 



5 CLEAR11000 DEFS1 



Hm II«JT"C006 C>ES QUESTIONS fl CHARGER ";0C IFLEN(QC)>4ThCN2002 
20B4 INPIJT-TflPEZ OK '",DR IFQP<>"OK"THEN100 
2006 IFLEN(QCl<4TKENQC-0C*" " GOTO2006 
2010 IFNO-OTHEN100 
2020 FOPP.*ITONQ 

2030 IFOC-" "THENPRINTi-l,Q(fl).pPINT»-l,R(fl) GOTO2050 

2040 irai>UFT«KflM)TIENPRIHT#-lj*R) PMK»-I,(Kfl) 
P0KE16396.7 QE-" 205P NEXT PRWTf-1, "STOP" GOTOI00 

3000 CLS- PRINT" EDITEUff DE TEXTE 



plus pe MEnoiRE :iSPOf-iBLE... :-^-- : = ::■ -.twi? 



chbpgep k? 

EfflJVER SUR K7 
ECRIPE . RECTIFIER 
QUESTIONNAIRE 



FiECHE EN Mn'.' T ROUP INCTEI1ENT0I . 
FUCHE EN P«T POUR PECREMENTER . 

" ENTER » POUR ECRIRE OU RECTIFIEP . 
<.< BREAK >> POUR MENU ," 
3010 NN^NO'l 
3028 PRINT"HO"«HN PRINT"' 

33*0 :FPEEKU44B0>4THES100 

3050 IFRS»9ITmENIFnn-:-nCThEnnn-nn.i GCT l ;3e7;EL=E3e3E 

3060 :FflS-ie-n->i:r,,..-. ; >..r.>,...N.,-| COTr307;ELSE3030 

3970 ;PO?-:?THEN3100ELSE3e30 

3071 iffKWO-'-'WKNN)-" "TKEHPRlNTNEflNT" GOTO3020 

6 




30S0 PRINT PPINT'CODE ■ ",LEFT»(Q(NN),4J PRINT "QUEST I ON ".RIGHT* 
<tXNN>,L£NC0<NN>)-4> PRINT'PEPQNSE " R<NNl GOTO3020 
3100 QO"" INPUT"CO0E "jK IFLENiOC)>4THEN310a 
3110 IFLEN(QC>:4TNENQC*0C*" " GOTO3110 

3120 B""" iR*fl' INPUT "QUEST I ON ",Q INPiJT'REPONSE "iR Q-X*Q 
3130 QR="" INPUT'TfiPEZ OK ",0R IFQRO'OK'THENCLS GOTO3075 
3140 QCNNJ-Q RXNN>-P 
3150 IFNN>NOTHENNO-NN 
3160 NN-NN.l GOTO3075 

4000 CLS IFN0"0THENINP1JT ,, JE N'fll flUCUNE QUESTION R VOUS POSER . 
(ENTER) ",Q-COT0 100 
4010 PRINT" 

flTTENDEZ" 
4020 1-0 FORfl-lTONQ WflX^NEXT 
4030 P-RND(NQ) N«0 
4040 IFH(R).0THEN4090 
4B50 n-q*lH-N*l 
4060 IFfl>NOTMENR-l 
4070 IFN>NQTHEN4:'.0 
40SB GOTO4040 
4090 I«I + l CLS PP. INT " 

QUESTION 

", RIGHT* Q<P,),LEN<Q<fl))-4)," 



4100 INPUT-PEPONSE 



«fl)i" 



= PRINT" 

REPONSE 



4110 PRINT" —EXACT OU FAUT (E'F> 

412P GOSUe?0 IFPS<->6«MNDflSO70THEN4l28 
«130 IFRS-63THENA(R)-1 GOTO4030 
4140 IFRS-70THEN4O30 
4150 CLS PRINT" 



.EPREUVE EST TERMINEE . 



■■'.20 C0SUP3B GOTOI00 



DES-ILLUSIONS 



Illusion, tout n'estqu'illusion! He btennonlCe programme 
vous propose quelques disillusions, quelques des et 
quelques illusions. 
A vous de jouer. 

Bernard RAGOT 



wizfoo 




I BIB REM 9 

1020 REn B 0ES~1LLUS10NS 

1030 REn S 

1040 REP 9 Prosrumm* lud.qui 

1050 REH e 

1060 REn 8 Ecrii par Btrnord G. RAGOT 

1070 REH 9 

1080 REn b Pour sharp pe-788 

1030 REP s 

1100 REn BBBBBBBOBSBBBBBBBBBBBBSSBBBei 

1 I 10 REn 
1 1 20 REn 

1130 REn 

1 MB REn INITIALISATION 

1 158 REn — 

1 1 68 REn 

1 170 COLOR , ,6,0 

1180 as 
1 1 90 CLR 
120B Oin TK1],T3tU,T3Cl] 

1210 N»t 

1228 CURSOR 5,3 

1230 T*="0ES-ILLUS10NS" 

1210 FOR J-l TO 13 

1250 G0SU8 3B3B 

1260 A*=nj0*CT*,J, I] 

1270 PRINT [C,B] A*; 

12BB NEXT J 

1290 CURSOR 0,6 

1300 PRINT TAB(5} ; 

1310 PRINT 13, 0] "U.ux-iu co»m«nc*r CO/N 

) ? "; 

1320 GET Rt 

1330 IF R*-CHR«C701 THEN J-0:pRINT 'Non" 

:GOT0 1360 

1310 IF R*=CMR*C79] THEN J-l :PRINT "Oul" 

:G0TO 2080 

1350 GOTO I320 

1360 REP 

I378 REH COUP DE L'ORDINATEUR 

1380 REn 

1 390 REn 

I 408 J=B 

M-10 L-B 

M20 THBl-B 

M30 T2£BJ*0 

M40 N-N-H 

M5B IF N-M GOTO 2790 

I46B X=INT[N^2J 

1470 PRINT TRlNTiPRINT 

1480. GOSUB 3130 

150* PRINT '.5,0) -J* joo« «on ";C»i" cou 



1318 
1528 
1538 
1548 



L-L-.1 

X-L 

GOSUB 3130 

PRINT 

PRINT TflB[5J; 

PRINT -non ";C*; - ' 

GOSUB 331 B 
PRINT TABC24); 
PRINT ' J-; 



3 PRINT Bi 

8 PRINT " = "; 

S PRINT USING "UlC'jfl-rl 

J if l-i then gosub 3' 

i IF LOI THEN GOSUB ! 

3 IF F<»"o" GOTO 1390 

i PRINT 1NBCS1; 

) PRINT "Tom I P our";l 

) IF L> I THEN PRINT ■'. 

i PRINT TNBL21J; 

) PRINT " : 

) PRINT USING "M»" |TJ 

) PRINT TABCS]; 



1758 PRINT -Total apr«* " i INTCN- 


];■■ iau 


1768 IF L>1 THEN PRINT -f; 




1778 PRINT TflB[21JI 




1788 PRINT - ; ■'; 




1738 PRINT USING *# W |T3C8) i 




1988 PRINT •' * "; 




1810 PRINT USING ■#»#' ;T2C0J 




1620 IF L=I2 GOTO 1350 




1930 IF U>n)*CNU2) GOTO 1320 




1B4B IF CN=121±CT3CB)tT2CBJ>T3C 


)t12) G 


TO 1320 




1950 IF (N»i3)*CT3C0ji-T2t0J>T3C 


]] THEN 


T3C0J=T3(0)*T2C0):GOTO 2780 




IB60 PRINT 




1870 PRINT TABtSJ; 




1860 PRINT [4,0] "J. continue . 




1898 PRINT 




1380 GET R*:1F ft*-™ GOTO I3B0 




1310 GOTO 1510 




1320 PRINT 




1330 PRINT TABC5J; 




1348 PRINT [2,0] -J'al p«ur «e conimutr 


1950 PRINT 




I960 PRINT TABC53; 




1978 PRINT [4,B] "J« it lain* 


a Ploct 


I9B0 GET RC1F R*-"" GOTO 1380 




1930 T3CBJ-T3[0]tT2l0) 




2800 IF P*»" GOTO 2B40 




2BIB PRINT 




282B PRINT TABCZ) | 




2838 PRINT [7,2] P* 




284B PRINT 




2B5B PRINT TABlSl; 




2868 PRINT [S.B] "PON SCORE - " 




2B7B PRINT USING ■»#»" ;T3[B) 








2B9B REN COUP OU JDUEUR 




2110 REn 




2120 J-l 




2130 L-B 




2140 Tl(1 J-B 




2150 T2(1)=0 




2160 N-N-H 




2170 IF N-11 GOTO 27BB 




2I68 X=INUhv2j 




2I90 PRINT :PRINT .-PRINT 




22e0 GOSUB 3 1 30 




2210 PRINT TABC5); 




2220 PRINT C2,B] 'Tu joo** ton 


;C# J- co 


Up I" 




2238 L=L«l 




2240 X-L 




22S0 GOSUB 3 l 30 




2260 PRINT 




2278 PRINT TABC5); 




2288 PRINT 'Ton ';C«;'' J" - : 




2238 GOSUB 3348 




23BB PRINT TflB[2l); 




231B PRINT " ="; 




2320 PRINT 0; 




2330 PRINT " r" ; 




2340 PRINT Bi 




2350 PRINT " - '; 




2360 PRINT USING -**■■ ;A*B 




2370 IF L-I THEN GOSUB 3700 




2388 IF LOI TNEN GOSUB 3770 




2330 IF Fi="o" GOTO 2680 




2480 PRINT TMCSlj 




2410 PRINT "Total pOUt>*fi-i* J«t' 




2428 IF L>| THEN PRINT '"*"; 




243B PRINT TA8121}; 




2448 PRINT - -; 




2450 PRINT USING *M»**jT2C13 




2460 PRINT TABC5J; 




2470 PRINT "Toiol apr»t • ; INTCN/2 


)i" lour 



2460 IF INT(N'2]M THEN PR!"T 

2490 PRINT TA6124) i 

7508 PRINT - -; 

2510 PRINT USING ■'#•»" ;T3t I] ; 

2520 PRINT ■' f ■■; 

2530 PRINT USING "Ml»";T2ClJ 

2540 IF L=I2 GOTO 262B 

2550 PRINT 

2568 PRINT TA8C5] ; 

2578 PRINT [3,0] 'U.uj.-1u con 



COt 



2568 SET Rt 

2590 IF Ri=CHR*(78) THEN PRINT "Non" =GOT 

2688 

26BB IF R*"CHR*C73] THEN PRINT "Ou;":GOT 

2230 

2610 GOTO 25B0 

2620 PRINT 

2630 PRINT TflBIS); 

2648 PRINT t'M« flnl pour c« lour ..." 

2650 PRINT 

2660 PRINT TABC5); 

2670 PRINT [4,01 'Brttuo 

2660 T3[l)-T3m»T2[|] 

2698 IF P« = "" GOTO 2730 

2788 PRINT 

2710 PRINT TflB[2)i 

2720 PRINT [7,2] P« 

2230 PRINT 

2710 PRINT TflflCS) ; 

2758 PRINT [5,0] ''TON SCORE i " i 

2760 PRINT USING "»■■'* ;T3[ I ) 

2778 GOTO I360 

2760 REH — 

2790 REN SUITE OU FIN 



I REn - 



28 IB REn 

2B2B PRINT =PR1NT 

2638 PRINT TA8[S}; 

261B PRINT [3,0] *£'•« fin! ..." 

2850 IF T3[|]>T3(B] THEN PRINT TAB(5I;:P 

RINT [2,0] "Brouo, lu it It plus fori .. 

2860 IF T3CI3-T3IB] THEN PRINT T|4BC5] ; :P 

RINT [3,0] "Nout (oi>n*( •»-a«quo ..." 

2B70 IF T3C1KT3IU THEN PRINT TftBC51i:P 

RINT [4,0] "J« tun uralMni I* plu* for 

2880 PRINT iPRINT 

2898 PRINT TPB153 ; 

2380 PRINT [5,0] "TON SCORE = 'I 

2318 PRINT USING "«W(T3CU 

2920 PRINT TABC5J; 

2938 PRINT [S,B] "nON SCORE * "! 

2948 PRINT USING '•#■»■' iT3CB] 

2350 PRINT 

2360 PRINT TflB(5) ; 

2378 PRINT C3,0) ■'U.oj.-tu r«Jou.r tO^N) 

? "i 

2908 GET R* 

2998 IF R*=CHR*(78) THEN PRINT ,, Non ,p :GOT 

3020 

3000 IF R«-CHR*(73] THEN PRINT "Oui'*:GOT 

D 1000 

3010 GOTO 2388 

3828 REn "- 

3038 REH FIN 

3040 REn 

3050 REP 

3060 CLS 

3070 PRINT TPBC5); 

3080 PRINT "Oopi-as. ..." 

3030 PRINT TflBCS); 

3100 PRINT "flu n«oir ..." 

31 10 PRINT :PRINT:PRINT 

3128 PRINT =PRINT:PRINT 

3130 PRINT:PR1NT:PRINT 

3140 END 



3150 REn ™ 

3160 Rtn SOUS-PRCQRflnnES 

3170 REn 

3180 REn 

3130 REP COnPTEUR DE COUP 

3200 REP 

3210 IF X-l TNEN C*="pr«m;«r" 

3220 IF X-2 THEN C« = "d»uj. lint " 

3230 IF X-3 THEN W-'iroii lti.f 

3240 IF X=4 THEN C«="9ualr ! •«•" 

3250 IF X=S THEN C*-"c inq ; ■me" 

3260 IF X^6 THEN C*-"t ; xi«(ne-' 

3270 IF X=? THEN C«="«tp» J •#*" 

3288 IF X-8 THEN Ct="hul t I tmt" 

3290 IF X=3 THEN C«-"r>tu«i«(« " 

3380 IF X=!B THEN C*-"di y ;«m« " 

3310 IF X=!l THEN C*-"or.i i«n>«" 

3320 IF X-12 THEN C*="doua ieme" 

3330 RETURN 

3340 REP TIfiflGE DES DEUX OES 

3350 REM 

3360 T-0 

3378 fl=lNT[6*RNDCl ]]f 1 

3388 B=INT[6*RND[1]]*1 

3338 IF [J»0)*(T=B)*CTICB]-flT-B] THEN T = l 

:GOTO 3370 

3408 RETURN 

3418 REH PREP1ER JET ORDINflTEUR 

342B REP 

3430 TK0J=fl*B 

3440 12[0J-T1[0J 

345B F»="n" 

3160 Pl="" 

3170 



i IF TU0J-2 THEN P-I0 

IF TK0]=3 THEN P-8 

IF Tl[0]=1 THEN P-6 

IF T1C03-5 THEN P"1 

IF Tl[0]»6 THEN P-2 

IF TK0J-7 THEN P-l 

IF TU03-B THEN P=2 

IF TK0J-3 THEN P-4 

IF TK0J-I0 THEN P-6 

IF TK03-I1 THEN P*S 

IF TIC03-I2 THEN P-10 

RETURN 

REP JETS SUIUNNTS OROINNTEUR 



3490 

3500 

3510 

3530 

3530 

3540 

3550 

3560 

3S70 

3580 

3530 

3600 

3610 

3620 

3638 

3840 Pt="" 

3650 RETURN 

3060 T2(0]=0 



reti 



) P«="»* PERDU 1 

) RETURN 

) REP PREP1ER JE 



3720 T 
3730 T 
3740 f 
3750 F 
3760 « 
3778 li 
378B « 
3738 I 



3870 RETURN 

3880 ENO 

3898 REn TIRflGE ALEPTOIRE 

3380 REn 



OBSTACLES 



La vie, c'est bien connu, est remplie d'obstacles. 

Ce programme vous en propose d'autres dans ce jeu 

reflexe. 

Ah ! un dernier obstacle : ceux qui ne disposent pas dun 

lecteur de disquette devront supprimer la ligne 1 CD et rem- 

placer la ligne 20 par : 20 GOSUB 900. 



Andre LE GRAND 



t-.l M 

REN 



REM 

CLES 
REH 




SPEED- 2 

FOR I - 

12: PRI 



90 A« - "PAR ANDRE LE GRAND" 

100 FOR J - O TO LEN IA»> 

t 10 FDR I - 1 TD LEN <A«) - 

I ♦ 10: VTAB 23: PRINT ' 



POR ANDRE LE GRAND 



-DISOUETTES-- 



D» - CHR* 14): REM CTRL-D 
PRINT DSi-BLDAD ROUTINE" 

REM fin DISOUETTES 

REM 

REM NE PA5 DUBL1ER GOSUB ■? 

REM POUR CEUX QUI UTILISEN 

T 

REM DES CASSETTES. 



HDME : HTAB 18: 


PRINT 


"DBSTA 


CLES" 








VTAB 8: 


PRINT ' 


IL FAU' 


LES E 


VITER. . 








VTAB lO 


PRINT 


"EN SE 


3EPLAC 


ANT AVEC LES FLECHES . 




VTAB 12 


PRINT 


"OU AVE 




OIGNEE DE JEU" 






VTAB 16 


PRINT 


"IL ES" 


ENCOR 


E TEMPS 


D " ABANDONNER 


RESETI 



AIS IMPOSSIBLE DE VOUS ARRET 

EZ " 

VTAB 7: PRINT " . . . 5AUF SUR U 

N OBSTACLE.. ." 

VTAB II: INPUT "NGMBRE D'OBS 

TACLES 0"100)"tN 

IF N < IOC THEN PRINT "TOI 

V'EN A PA CQMPRENDU :NUMBRE 

PLUS": PRINT "GRAND DUE 100" 

: INPUT R 

IF R <. 10O THEN R = 100 

HOME : VTAB S: PRINT "NIVEAU 

CHOI SI !" 
VTAB 10: HTAB 15: PRINT "1- 

NUL" 
VTAB 12: HTAB 13: PRINT "2- 

MOINS NUL" 
VTAB 14: HTAB IS: PRINT "3- 

VTAB 16: HTAB 15: PRINT "4- 

BON" 

VTAB IB: HTAB 13: PRINT "3- 

TRES BON": GET N 

IF N 1 OR N . 5 THEN PRINT 

"NOMBRE ENTRE 1 ET 5": GET N 
: GOTO : 



GR 



300 
320 



CALL 



I2B0 



310 FOR I - 1 TO Ri PLOT 



i ri, i ■-,. . .. 
POKE 77.20 
COLOR- 5: PLOT 20.2O: 



POKE 249,' 



POKE 74 
1385.24 
IF N ■ I THEN 
IF N » 2 THEN 
IF N » 3 THEN 
IF N - 4 THEN 
IF N - 3 THEN 
CALL 1392: IF 

THEN 395 
CALL 1332: POKE - 1633. 
: IF SCRNe PEEk (77). 
(76J) < > 6 THEN 400 
REH FIN 
TEXT : HOHE 
HTAB 10: VTAB IO: PRINT 



COLOR- 
POKE 



F'OI E 73,253 

POKE 75,175 

POKE 75, 100 

POKE 75, SO 

PDtE 1385,96 

PEEK <741 - 



330 HTAB 15: VTAB 15: PRINT PEEh 

(249) S" POINTS. " 
540 VTAB 17: HTAB 8: PRINT "UNE 

AUTRE PARTIE " 

550 GET R«: IF R* - "" THEN 550 
360 IF Rt ( > "O" AND R» < > " 

." THEN 60O 
570 VTAB 19: HTAB 8: PRINT "DANS 
LES MEMES CONDITIONS": GET 



R* 

IF R» < 

. ■ THEN 1 ' 

GOTO 300 

END 

FOR I - 12B( 

: POKE I, A: 

END 

REM 



"O" AND R» < 



1000 REM ROUTINE EN LANGAGE I 
HINE 

1001 REM 



1010 DATA 169.39,133.44,133.45,3 
2,34,248, 169,6,32, 100,248, 16 
9,0. 168, 32.40.24B, 169,39. 16B 
. 169,0,32,40. 24B, 169, O, 16B. 1 
69,39,170.32,25.248, 169.0, 17 
0, 168,32,23,248, 162, O, 169,6, 
32, 100.248,96, 164,77, 165,76, 
32,0,248,32.67 

1020 DATA 240,144,3.133.74,24,16 
9. 136. 197,74,24.20B,3, 196,77 
,24, 169, 149, 197, 74, 20B, 3, 230 
,77.24, 169,240, 197, 74; 20B, 3, 
198,76,24. 169.241, 197.74.20B 
.2 

1030 DATA 230,76.230.249,24,165, 
75,32, 168,252,96, 169,0,32,67 
,240, 144,7, 133,47.24,233, 127 
,133,74,96 

1040 REM 



FIN 



C'EST NOUVEAU, CA VIENT DE SORTIR ! 



DRIC FRANCE ANNONCE LA SORTIE DUN MANUEL 
^'UTILISATION EN FRANCAIS POUR SON IMPRIMANTE 
MCP 40. 

_e manuel francais de la MCP 40 est desormais livre avec 
imprimante. 
I traite des sujets suivants : 

• Description generate du materiel 

• Conseils de mise en route 

• Caracteristiques techniques de limprimante 

• Utilisation de I'imprimante. 

NDLR : c'est pas plus on moins obligatoire, les modes d'emplois en 
rancais ?) 



WIARVIE AIDE 

_a societe MARVIE SARL vient d'ajouter a I'environne- 
Tient du GOUPIL 2 et du GOUPIL 3 un nouvel utilitaire : AI- 
DE. Ce logiciel, destine aux entreprises et aux associa- 
ions, remplace plusieurs manuels du GOUPIL en analy- 
;ant toutes les syntaxes du systeme d'exploitation FLEX. 
MDE fonctionne sous tous les interpreteurs BASIC et 
analyse aussi les commandes comportant plusieurs 
loms d'utilitaires. 

3ten sur, AIDE n'a pas de brochure duplications caril suf- 
it d'ecrire AIDE AIDE sur le clavier pour que toutes ses 
aossibilites apparaissent sur I'ecran. 



'EPS (ECOLE PROFESSIONNELLE SUPERIEURE) orga- 
nise au cours des prochaines semaines les stages sui- 
vants dans les differents centres EPS : 
. Centre EPS Yvelines. 25 rue Ambroise Croizat, 78280 
GUYANCOURT (tel. (3) 043.57.90) : 

- Secretaire bureautique, stage de 6 mois a temps plein. 
debutant le 10 Janvier 1984. Possibility de remuneration 
par I'Etat. 

- Technico-commercial en micro-informatique. stage de 
6 mois a temps plein, debutant le 23 Janvier 1984 Possibili- 
ty de remuneration par I'Etat. 

- Micro-informatique industrielle et de gestion, stage de 
3 mois a temps plein, debutant le 23 Janvier 1984 

Pour tout renseignementcomplementaire.telephonerau 

(3)043.57.90. 

• Centre EPS Pays de Loire, 8. rue Linne, 44000 NANTES 

(tel. (40) 73.52.58) : 

- Micro-informatique industrielle et de gestion, stage de3 
mois a temps plein, debutant le 30 Janvier 1984. 
Pourtoutrenseignementcomplementaire.telephonerau 
(40) 73. 52.58." 

FORTH 

La maison pour tous du CHAMPY organise des stages 
d'initiation au langage FORTH en Janvier, fevrier et mars. 
C'est a Noisy-le-Grand, tl y a le metro, le telephone 
(303.19.08) et pa vous coutera 650 F 



"CREATION DE ..'ASSOCIATION INFORMATIQUE ET PE- 
DAGOGIE a I'ECOLE MATERNELLE : 

Lassociation IPEM a pour objectifs de reunir des ensei- 
gnants. des parents, des chercheurs et des techniciens 
pour : 

- diffuser les experiences specifiques a I'ecole maternel- 
le. 

- echanger les informations et les experiences de cha- 
cun. 

- assister les enseignants qui souhaitent realiser une ex- 
ploitation pedagogique des jeux electroniques et des or- 
dinateurs dans leur classe. 

- rassembler tous ceux qui sont interesses par le caracte- 
re specifique de I'ecole maternelle dans ce domaine. 
Les membres de I'lPEM exercent leur activite en Rhone- 
Alpes mais egalement dans d'autres regions. 
L'experience de I'association repose sur I'utilisation dans 
plus d'une dizaine de classes matemelles de micro-ordi- 
nateurs de toutes marques avec des enfants de 3 a 6 ans. 
Si vous etes interesses par les activites de I'association. 
contactez Jacqueline PILLOT I.D.E.M. Bourg 

6 rue Jules Ferry 

01000 BOURG en BRESSE. 



PAS SI FOU, LE VAMPIRE ! 

Le vampire fou des Editions CIEL BLEU a, parait-il, depas- 
se les 1000 exemplaires vendus. Pour un logiciel francais 
ecrit par un Francais pour APPLE, c'est un jolt score. 



LE PREMIER TOME EST DEJA UN BEST-SELLER, VOICI DEUX NOUVEAUX 
RECUEILS DE LOGICIELS, ENCORE PLUS COMPLETS, ENCORE PLUS 
BEAUX! 



JEUX et PROGRAMMES 

pour 

I 'ordinateur familial 
TEXAS INSTRUMENT 




Programmez vous-meme en Ti-Basic grace a des instructions simples, sans 
aucun peripherique ni module complement ai res Des jeux originaux et passion- 
nants avec couleurs, graphismeset sons : Jeux de mouvement (Bowling, Bataille 
de I'espace, Labyrinthe, etc.). Jeux de reflexion : Dames, Pendu, Awari, Tour de 
Hanoi, Architecte, etc.). Jeux de societe (421, Goldte.Cochon, Mastermyster.Chtf- 
fres et mots, etc.). 

Des programmes pert ormants : Calcul (Factures, Paye. Byorythmes, etc.). Assis- 
tance (Tierce, Impots. Suivi de compte en Banque. etc.). 

Et aussi des Astuces pour augmenter la puissance du langage Ti-Basic : AND et 
OR, Arronai. Aiiynement. HCHAR multiples, etc. 
100 pages. Format 21 x 29,7. 155,00 francs francais Disponible. 



Le tome 2 est toujours en basic simple, sans peripherique ni module complemen- 
taire. Les jeux y sont encore plus nombreux : Backgammon, Sous-marin.Trappe, 
Roulette, Casse-tete. Puzzle. Echecs. Tachitoscope. Kim, Paires. etc. . De la musi- 
que a inclure dans vos programmes ; Big Ben, la Marseillaise, God save the queen, 
les Rois mages, etc. Et aussi. des programmes educatifs : Arithmetique, Calcul de 
puissance, Regions de France, entrainement a la logique informatique, etc. 
100 pages. Format 21 x 29,7. 155,00 francs francais. Disponible. 



en vente dans les fhac et chez les 
revendeurs TEXAS INSTRUMENTS. 



Le tome 3 est en basic etendu, il necessite done le module "Extended Basic" qui 
augmente considerablement les possibilites de votre ordinateur A des program- 
mes utilitaires comme un traitement de texte ou une gestion complete de plu- 
sieurs comptes en banque s'ajoutent des jeux rapides (bataille navale, course de 
voitures, etc.), des jeux de societe (Theme astral, Drapeaux, Poker, Harmonium. 
Calculettescientifique.Ardoisemagique etc.). des utilitaires pour creer des lutins. 
fusionner des caracteres, dessiner point par point, faire defiler des textes dans 
tous les sens ou encore fabriquer une mire Texas a votre nom ! 
100 pages. Format 21 x 29.7. 155,00 francs francais. Disponible. 



Vous connaissez le Ti-Basic, vous possedez un Ti 99/4A et un module "Mini- 
memoire"? Vous pouvez des a present disposer de toute la puissance de votre 
ordinateu' : Acces a toutes les possibilites graphiques. y compris la haute resolu- 
tion. Acces direct a la memoire centrale. Grande vitesse d'execution (deux minu- 
tes au lieu de deux heures trente pour un meme programme). 
Ce manuel, comprenant un grand nombre de programmes commentes vous 
apprend progress ivement, sans connaissances techniques prealables, a maitri- 
ser un langage tres puissant reserve jusqu'a present aux seuls specialistes. 
Par Denise AMROUCHE et Roger DIDI. 21 4 pages. Format 21 x 28 1 95,00 francs I 
francais. Disponible en francais et en anglais. 



X et PROGRAMMES 
pour I'ordinateur familial 
TEXAS INSTRUMENTS 
Tome 2 




JEUX et PROGRAMMES 

pour I'ordinateur familial 

TEXAS INSTRUMENTS 

Tome 3 




PROGRAMMES en BASIC ETENDU Ti 



DEMANDEZ LE CATALOGUE DE NOS PROGRAMMES DISPONIBLES SUR CASSETTES ET OISOUETTES. SHIFT EDITIONS, 27 rue du Gal Foy, 75008 PARIS 



Nom/Prinm, III I I 

A0..,„ I I I I I I I I ||| 

I I I I I I I cod. Po. U l I I I I I I 

V.». I I I I I I I I I I I I I I I I 



TOME 1 □ 155 F 
TOME 2 a 155 F 



TOME 3 D 155 F 

ASSEMBLEUR LI 195 F 



CONTRE REMBOURSEMENT FRANCE + 20 F D 

CONTRE REMBOURSEMENT ETRANGER + 30 F □ 



REGLEMENT JOINT 
cheque D ccp □ 



4Q-2.F 



DEUX SUPER-CONCOURS PERMANENTS 

10000 francs de prix au MEILLEUR LOGICIEL du MOIS et un VOYAGE EN CALIFORNIE 

ail meilleur logiciel du TRIMESTRE. 



Un concours de plus ! 
Rien de bien original dans cette 
formula, pourtant nous es- 
sayons de faire quelque chose 
de different : nous organisons 
un concours permanent tous 
les mois et tous les trimestres ! 
Et avec des prix dignes des pro- 
grammes que vous allez nous 
envoyer! 

De plus, ce seront les lecteurs 
eux-m ernes qui voteront pour 
leurs programmes preferes sur 
la grille recapitulative men- 
NWA 

Pas de Jury, pas de decision ar- 
bitrage, HEBDOGICIEL n'inter- 
venant que dans le choix des 
programmes qui devront etre 

RIGINAU X et FRANCAIS. Si 
votra programme nest pas tout 
a fait au point, un de nos spe- 
cialistes vous dira comment 

1 'amel iorer pour pou voir nous le 
proposer a nouveau. 



Pour participer, ii vous suffit de 
nous envoyer vos programmes 
accompagnes du bon de parti- 
cipation ainsi que toutes les ex- 
plications necessaires a I'utili- 
sation de ce programme. 
Vous pouvez obtenir gratuite- 
ment des bons de participation 
en ecrivant au Journal. 
Bonne chance! 

Reglement : 

ART. 1 : HEBDOGICIEL organise 
de facon mensuelle et trimes- 
trielle un concours dote de prix 
recompensant le meilleur logi- 
ciel du mois et du trimestre. 
ART. 2 : Ce concours est ouvert a 
tout auteur de logiciel quelque 
soit le materiel sur lequel il est 
realise. L'envoi dun logiciel en 
K7 ou disquette accompagne 
d'un bon de participation de- 
coupe dans HEBDOGICIEL ou 
envoye gratuitement sur de- 



mande par la redaction de notre 
journal constitue I'acte de can- 
didature 

ART. 3; La redaction d'HEBDO- 
GlCIEL se reserve le droit de 
selectionner sur la base de la 
qualite et de loriginalite les logi- 
ciels qui sont publies dans le 
journal. 

ART. 4 : Ce sont les lecteurs qui. 
par leur vote, determinent les 
meilleurs logiciels mensuel et 
trimestriel. 

ART. 5; Le prix alloue pour le 
concours mensuel sera remisau 
plus tard un mois apres la clo- 
ture du concours mensuel 
ART. 6: Le prix alloue pour le 
concours trimestriel sera remis 
au plus tard un mois apres la clo- 
ture du concours trimestriel. 
ART. 7 : Le present reglemenl a 
ete depose chez Maitre Jauna- 
tre, 1 , rue des Halles 75001 Paris. 
ART. 8 : HEBDOGICIEL se reser- 



ve le droit a" inter romp re a tout 
moment le present concours en 
en avisant les lecteurs un mois 
avant 

ART 9 La participation au con- 
cours entraine I'acceptation par 
les concurrents du present re- 
glement. 

HEBDOGICIEL: 27. rue du Gal 
FOY- 75008 PARIS 

Sera declare gagnant le pro- 
gramme qui aura obtenu le plus 
fort pourcentage de vote par 
rapport a la totalite des pro- 
grammes recus pour un meme 
ofdinataur. 

Ainsi, pas de favoritisme pour 
les ordinateurs plus puissants 
ou tres diffuses. 
Nous reviendrons plus en detail 
a la fin du mois sur le systeme 
de depoutllement du vote. 



BON DE PARTICIPATION 



Norn : 

Prenom : 

Age : 

Adresse : 

n" telephone : 

Nam du programme : 

Nom du materiel utilise : 

declare etre I'auteur de ce programme qui n'est ni une imitation ni 
une copie d'un programme existant Ce programme reste ma pro- 
priety et j'autorise HEBDOGICIEL a le publier La remuneration pour 
les pages pubhees seront de 1 000 francs par page (un programme 
n'occupant pas une page entiere sera remunere au prorata de la sur- 
face occupee). 
Signature obligatoire : 
(signature des parents pour les mineurs). 

Le programme doit etre expedie sur support magnetique (cassette 
ou disquette) accompagne d'un Descriptif Detaille du Materiel uti- 
lise, d'une Notice d'LUilisation du Programme, et d'un embaltage 
timbre permettant la reexpedition du materiel non publie. 



RECOMM AND A 1TONS AU X LEC- 
TEURS QUI SOUHAJTENT FAIRE 
PUBLIER UN PROGRAMME : 

• Indiquez sur le support 
magnetique lut-meme voire 
nom, le nom du programme et le 
materiel auquel il est destine. 
Rien n'est plus difficile que d'es- 
sayer de charger un programme 
d'Apple sur PC 1 500. 

• Notez dans les premieres 
lignes de votre programme, sous 
forme de REM, votre nom. le nom 
du programme et le materiel 
auquel il est destine. Nous pour- 



rons ainsi reperer facilement les 
listings, une f ois sort is de t'impri- 
mante. 

• Dupliquez plusieurs fois sur la 
meme cassette et a des niveaux 
d'enregistrement differents 
votre programme. Nous aurons 
plus de chances d'arriver a le 
charger si les magnetophones 
ne sont pas tout a fait compati- 
bles. 

• Envoyez un seul programme 
par support magnetique et un 
seul mode d'emploi par pro- 
gramme. Votre lettre d'accom- 



pagnement et vos an tres cour- 
iers doivent egalement etre 
separes car traites par d'autres 
services. 

• Joignez. si possible, un listing 
du programme et un organi- 
gramme. 

• Enfin, le fin du f in, expliquez les 
parttcularites de votre ordina- 
teur et le moyen d'adapter votre 
programme a d'autres ordina- 
teurs. 



LA REGLE A CALCUL RE- 
COMPENSE LES MEILLEURS 
LOGICIELS EH OFFRANT A 
CHACUN DES PREMIERS 
DANS LEUR CATEGORIE UN 
OUVRAGE A CHOtSIR DANS 
SON RAYON LIBRAIRIE (EDI 
TEURS : BORDAS, DUNOD, 
EYROLLES, MASSON, NA- 
THAN, PSI, SHIFT, SYBEX). 



SQUIRELLE RECOMPENSE LE 
MEILLEUR LOGICIEL DU MOIS 
PAR 2 CASSETTES A CHOISIR 
DANS SA LOGITHEQUE. 



HACHETTE MICRO INFORMA- 
TIOUE OFFRE UN ALICE AU 
MEILLEUR LOGICIEL DU MOIS. 



DURIEZ CALCUL OFFRE AU 
MEILLEUR LOGICIEL DU TRI- 
MESTRE UNE MACHINE A 
ECRIRE BROTHER EP.22, 
2 KO DE MEMOI RE, IHTERFA- 
CEE RS . 232 . C. 





N-9 


N»H> 


N°tl 


N"12 


APPLE II 


SAUVETAGE 


PROGRAMMATION 


WAR GAME 


MINE ZONE 


CANON X-07 


CADRE DIABOLIQUE 


CALENDRIER 


COFFRE FORT 


CASINO 


CASIO FX-702 P 


GRAND PRIX 


ALUNISSAGE 


WALL STREET 


TRESOR 


COMMODORE 64 


421 


INTERCEPTEUR 


CALCUL 


SPACE MONSTERS 


COMMODORE 
VIC 20 


TIR AU PIGEON 


GEOFRANCE 


TAQUIN 


MINI PAC 


GOUPIL 


DESSIN 


BASIC GESF 


EDIGRA 


DICTEE 


HP 41 


FICH 


B1-B2 


MOX 


MASTERMIND 


MP-F II 


TOUR DE HANOI' 


CASSE-BRIQUE 


EDIT 


GLOUTO 


ORIC1 


GESTION ^_^--" 
^--^^NUMEROLOGIE 


ACROBATE 


BOMBER ^^^-~ 
^^-^ CENTRALE 


STARTREK 


PC 1500 


DONJON & DRAGON 


BASE 


le programme ectiecs de mon- 
sieur FORT ne participe pas au 


SAUTE MOUTON 


MZ80 


MUSIQUE 


PUISSANCE 4 


ANAGRAMME 


REVEIL 


ZX81 


OTHELLO 


BATAILLE NAVALE 


PILOTE SPATIAL 


KING KONG 


SPECTRUM 


FULL POKER 


CAVATTACK 


MEMOCASE 


NEUTRON 


TRS80 


DIETETIQUE 


CHRONO 33 


CHIFFRES ET LETTRES 


CARRE MAGIQUE 


TI-99/4A 
{basic simple) 


POKER 


OTHELLO 


ISOLA 


SLALOM 


TI-99/4A 
(basic etendu) 


MISTER FROG 


EDITEUR DE TEXTE 


CROCODILE SAVANT 


MORTELLE 
RANDONNEE 


T07 


TENBALL 


BARON ROUGE 


CHENILLE 


SOLITAIRE 



AUX URNES ! 



SOLUTION DE L'HIPPOREBUS: 




jfrjp.- 


10 FDR I = 1 TO 10 


20 READ X 






3.0 PRINT CHRS (X): 






40 NEXT I 






50 END 






60 DATA 65,73,71.85.73,76 


76, 65 




,71 ,69 


■ 





DATE LIMITE D'ENVOI 
DES BULLETINS DE 
VOTE : JEUD1 12 JAN- 
VIER, MINUIT. 



Abandonnez quelques instants vos claviers et prenez 
votre plus belle plume pour remplir le bulletin de vote 
ci-contre. La redaction d'Hebdogiciel compte sur 
vous! 

La marche a suivre est simple : 

- Reperez dans la grille ci-contre le programme 
pour lequel vous voulez voter ainsi que celui pour 
lequel vous votez en second (le second nous per- 
mettra de rendre plus equitable la formule de 
choix du gagnant). 

- Reportez le nom de ces deux programmes sur le 
bulletin de vote. 

- Inscrivez vos nom et adresse sur le bulletin de 
vote. 

- Expediez-le a HEBDOGICIEL, CONCOURS MEN- 
SUEL, 27, rue du General FOY. 75008 PARIS, 
avant le jeudi 12janvier a minuit. 

II est fort probable que ceux qui participent au 
concours feront voter leur papa, leur maman, leur cou- 
sine et la totalite de leur amis et relations pour leur pro- 
gramme. Normal! Mais comme chacun d'eux fera la 
meme chose, cela n'est pas bien grave ! Toutefois, tou- 
jours dans un souci d'equite, nous naccepterons que 
les ORIGINAUX du BULLETIN de VOTE ; pas de photo- 
copies, cela serait trop facile ! 



BULLETIN DE VOTE 



A renvoyer avant le 12 Janvier , minuit a HEBDOGI- 
CIEL, concours mensuel, 27, rue du General Foy. 
75008 PARIS. 

JE VOTE POUR LE PROGRAMME SUIVANT : 
NOM DE LORDINATEUR: 

NOM DU PROGRAMME: 

JE CLASSE SECOND LE PROGRAMME SUIVANT : 
NOM DE LORDINATEUR: 

NOM DU PROGRAMME: 

NOM ET PRENOM: 
ADRESSE: 



PRINCE PES ANNEAUX FX 70 2 P 



Mori et desolation ! Le royaume des terres eloignees est 
en deuil. Le bon Roi Gorlann est mort et les forces du Mai 
se sont emparees du trone en la personne de SATAN, I'en- 
voye des tenebres. 

Celui-ci regne sur une armee de personnages malefiques 
car... la legende veut qu'un preux combattant reussisse a 
retrouver les 3 anneaux qui garantissent a SATAN son im- 
mortalite, anneaux qu'il a disperses dans son royaume et 
mis sous bonne garde. 

Vous, vous croyez a cette histoire et votre cceur deborde 
de courage. Vous avez done decide d'entamer cette que- 
te des 3 anneaux et de tuer SATAN. 
Des anciens allies du Roi Gorlann vous ont appris que le 
premier anneau etait cache dans la Foret Profonde, le se- 
cond dans la caverne des Montagnes Noires et le troisie- 
me dans la Tour Maudite qui garde I'entree de I'Enferou se 
terre SATAN ! 

Christian LEGRAND 

Sur votre chemin divers evenements vont se produire : 

1) Qui va la ? Vous allez rencontrer quelqu'un qui peut vous etre benefi- 
que ou handicapant Les personnages pouvant etre rencontres sont : 

- un nuage : il vous refera une sante et vous fournira un antidote 

- un sorcier : il vous affaiblira et fera disparaftre quelques unes de vos 

fleches 

- un soldat : il vous faudra I'aflronter a I'epee 

- un paysan : sans danger, mais aussi sans avantage 

Si voussouhaitez fuir, faites FEXE. Sinon pressez une touche differente 
de F puis EXE 

2) Une fiole ? pour la boire, faire B EXE. sinon presser n'importe quelle 
autre touche que B, puis EXE 

Elle peut contenir : Un elixir : qui vous refera une sante 
Un filtre ; qui vous affaiblira 
Un antidote : tres pratique 
Un poison : dansce cas, si vous possedezau moins 

un antidote, appuyez vite sur A, sinon 

vous mourrez. 



3) Des fleches 

Vous recupererez ainsj de 1 a 4 fleches 

4) Plein la vue 

C'est une etape sans histoire 

5) 3 voies ? 

Lune d'entre elles vous rallongera et lune vous donnera un raccourci 
Faites D (droite) G (gauche) ou M (milieu) puis EXE selon votre choix. 

6) Un animal 

Selon I'endroit ou vous vous trouvez, leur nature change Compte tenu 
de leur flair vous ne pouvez pas fuir et il vous faut les combattre 

7) Un piege ? 

A cet endroit, vous sautez un piege. Vous avez le choix entre R EXE 
(ramper) ou S EXE (sauter) 

Selon quele piege est une fosse masquee ou unarc automatiqueet se- 
lon votre reponse, vous serez blesse ou non 

8) Un petit etre 

Ces petits etres sont eux aussi benefiques ou malefiques Mais ils ont 

tousle pouvoirde vous transporter plus ou moins loin oupresdel'etape 

finale. 

Comme vous le remarquerez rapidement. certains evenements n'ont 

pas lieu dans certains lieux et c'est votre experience qui vous guidera 

ensuite pour votre strategie 

Le deroulement de la quete se passe en 5 tableaux : 

1) La Foret elle vous mene au 1 er coffre contenant un des anneaux. 

2) La Caverne au bout, vous trouverez le second coffre avec un an- 
neau. 

3) La Tour : si vous trouvez la combinaison du dernier coffre, vous recu- 
perez le dernier anneau et vous devenez "Prince des Anneaux" 

4) LEnfer : il est vraiment infernal, vous aurez beaucoup de combats a 
mener De plus, c'est un vrai labyrinthe. 

5) Lultime combat contre SATAN I Meme s'll est devenu model depuis 
que vous avez recupere les 3 anneaux, SATAN est coriace et il est "dia- 
blemenl" fort a I'epee. 

Les combats sont regis par des regies precises, mais comme vous allez 
le constater, ils font tres peu appel a la chance et beaucoup a votre 
adresse a votre rapidite d'action Vous disposez de 3 armes : un arc et 
des fleches, une lance, une epee 
DL'aro 

Au depart, vous disposez de 10 fleches Des lapparition de lanimal a 
combattre appuyez sur A. pour envoyer une fleche. Vous avez 7 chan- 
ces sur 10, de toucher votre objectif et vous lui intligerez des blessures 
plus ou moins graves. Si vous n'appuyez pas sur A, lanimal soldat se 
rapprochera et vous devrezle combattre a I'epee N'oubliez pas que les 



fleches tiennent ladversaire en respect a distance, comme la lance, el 
vous ne risquez pas d'etre blesse 

2) La lance 

Beaucoup plus meurtriere que les fleches, mais aussi moins precise. 
Enfin. elle a une chance sur dix de casser et d'etre perdue pour vous Si 
elle est Intacte, vous la recuperez. apres chaque combat, dont vous 
sortez toujours vainqueur Pour la lancer II faut appuyer rapidement 
surB. 

3) Lepee 

Le combat se deroule en temps reel Si I'affichage indique "en haut" ap- 
puyez vite sur H. pour contrer I'attaque qui vient den haut. "au centre" 
appuyez sur O. "en bas" appuyez sur V Si I'affichage indique "il recule" 
appuyez vite sur R pour toucher ladversaire Si vous ne reagissez pas 
assez vite, ladversaire vous blessera plus ou moins gravement 
Lorsque vous arnvez tace au coffre, sortez votre trousseau de clefs qui 
encomportelO, numeroteesdeOay Vousavez7essaispourtrouverla 
bonne, car au-dela. un cobra viendra vous piquer avec son venin Si 
vous avez des antidotes, pressez vite A et vous pourrez essayer une clef 
de plus, avant qu'il ne revienne. 

Si vous devenez champion, il vous est toujours possible de jouer sur les 
variables A, B, E. F G a I'initialisation et sur la variable D pour augmenter 
la rapidite des combats . et la difficulty du jeu. 
Voila vous savez tout sur les epreuves qui vous attendent Commence 
sur un rythme sympathique, votre quete deviendra de plus en plus diffi- 
cile au fur et a mesure que vous approcherez du but. 
Un dernier mot. soyez honnete et n'essayez pas de tricher, II n'y a plus 
d'octets disponlbles pour inclure des tests de valldite des entrees 
Bonne chance, (futur) Prince des Anneaux. 



MODE D'EMPLOI 

- DEFM Det VAC uniquement la r'fois. 

- Charger les variables selon la liste fournie par le listing 
A chaque execution : 

- Rentrer la valeur des variables A, B, E, F G 
A Nombre d'antidotes 1 

B Etat de la lance 1 

E Nombre d'etapes restantes 10 

F Points de vie 100 

G Nombre de fleches restantes 10 

Lancer le programme avec F1 PO 



VflR: 26 PRG: 1688 

P8: 1678 STEPS 

i Hflll 38:658 539 
tF'RT 0i:Ct="LOU 
P";U="LYN:<":I= 
6*28!D=15:GSB 
558 

J 8SS 538:PRT Jt: 
Lt="HIBOU":Ct=" 
OURS": I=4«8: 
E=ie:D=14:6SB 5 
59 

3 hSB 538:PRT lit: 
Lt="HYDRE":Ct=" 
0RB60H": 1=6*4 
6:E=18:D=13:6SB 

558 

4 PPT t,"BRR!L,EN 
FER":Li="DEIfOH" 
:»="0!BBLE":!= 
3*58 

5 E=12:D=14:6SB 6 
:PRT St!"SRT8N! 
":K=7B:D=12:SSB 

488: PRI t:END 

6 6S8 (INT (RRNH 
!)*18>«H:E=£-1: 



IF FiB IHEH 588 
? IF E=8lE=8 

8 IF G=e;6=8 

9 IF B=6;B=8 

!8 PRT "Tfl ";Hi;F, 
MiG.-fHTlMTE" 
;fi,Vt;E:!F E>8 
THEN i 

11 RET 

28 IMP "QUI VB LB" 
,Pt:lF Pt="F";R 
ET 

21 T=22:6SB 548:RE 
T 

22 PRT Rt:F=IHT (F 
».8>:6=IHT (G/2 
):RET 

23 PRT "ltitGE":F=F+ 
28:R=R+l:RET 

24 PRT "SOLMTi'iK 
=28:GSB 4B8:RET 

25 PRT "CHBT":RET 
38 IHP "LIKE FIOLE" 

,Pt:lF Pts"B";R 
ET 

31 T=32:BSG 548;RE 
T 

32 PRT "ELISIR":F= 



F*28:RE! 

33 PRT "PHILTRE":F 
=IHT (FUCRET 

34 PRT "BHTIDGTE": 
R=«tl:RET 

35 PRT "P6IS0H!":! 
F KEV*"8" THEN 
588 

36 IF R>8*8-1:RE 

37 60T0 588 

48 PRT "DES *;Cf:6 
=6*1*IHT (R8NH 
3):RET 

58 PRT "R1EH EH VU 
E!":RET 

68 PRT "UN";: IF R 
BNK.SlPRT Cf.K 
=15: SOTO 66 

63 PRT Lt:K=I8 

66 6SB 388:RET 

78 INP "3 V0IES",P 
C1F RBNK.3;E= 
IHT (E«.7):RET 

73 IF MHK.SiE* 
3:RET 

?b RET 



88 INP "UH PIESE", 
P*:IF R8HI{.5:R 
ET 
82 ESB 568: RET 
98 T=9i:GSP 548:RE 
T 

91 PRT "ELFE":E=!: 
F=F»9:RET 

92 PRT "NH1H":E=E* 
3: RET 

93 PRT "LUT1H":E=I 
HT (E-'2):F=F*15 
:RET 

94 PRI "6H0HE":E=L 
♦5: RET 

268 PST 'LE COFFRE! 

":T=INT (RBHK1 

8):S=8 
218 IHP "CLE",P 
228 IF P=T!PRT "L,fl 

HNERU!":RET 
238 IF IK7SX*l!W 

TO 219 
248 PRT "LE COBRA!" 

:IF B=8 THEN 58 

8 
258 IF KEt's-'Fi" THEN 



268 8=B-l:S0T0 218 
388 IF KEV="B" THEN 

358 
3i8 IFJEV='fi" THEH 

329 60?0 486 

325 IF G<1 THEH 489 

:«ET 
335 PRT "TCHflC!"* 

6-1: IF RRHD.7! 

SSB 668: SOTO 39 

e 
348 W 519:6SB 588 

•if" K=6'.GSE 578 

:RET 
345 6SB 616:G0T0 39 

9 
359 IF 6(1 THEH 315 
355 PRT -HHN!":B=0: 

IF RBH»).5lBSB 

688:80TO 318 
368 IF RRND.91PRT 

"CBSSEEi":B=-l: 

GOTO 318 
365 GSB 5I8:K=IHT ( 

Vtr-V K=8;GSB 

57B:B=l:RET 
498 IF B;8;B=1 



485 UflIT D:IF RflN#> 

.51PRT VtMF KE 

7>"H" THEH 468 
418 IF RHH»(.5;PRT 

"filj CENTRE": IF 

KEV*"0" THEH 46 

8 
428 IF RBHK.51PRT 

IB: IF KEYi'V" T 

HEH 468 
438 IF RRHI;.5iPRT 

"IL";Z*: IF KEV= 

»F":6S8 588:658 
518 
446 IF Uf,mt 578: 

HFtlT 38:RET 
458 GOTO 468 
468 GSB 568: IF FiB 

THEH 589 
476 GOTO 499 
599 PRT "BRGITU BE1) 

RS..":EHt' 
518 PRT 'BiEs!":l!«: 

RET 
528 PRT "Til ";Ht,F: 

RET 
538 PRT 3J:"LB "::R 

rr 



548 PRI "UN";: GSB 
TtINT (RRIIH4;: 
RET 

559 GSB 6: GSB 288: R 
rr 

569 PRT 'filEIELESSE 

":F=F-!HT \RBHt 

•4):RET 
578 PRT "EHF IN' ILK 

EORT'iRET 
588 H-WI (RBNU6 

>:RET 
688 PRT "ZUTIRRTE": 

RET 
618 PRT "58 "SHfiKi 

RET 

«t fflR LIST 
SBR: 26 PRG: 1688 



B =1 

CJ =L0UP 
= 15 
E = 18 
F = 168 
6 = 18 



HJ =F3RHE 
I =6 
J! =C»VERNE 

»; =-i 

Li =Lfflv, 
it =!0»t 
H = 26 
Ot =F0RET 
Pt =6 

» =FLECHES 
M =S08C1ER 
St =V0ICI 
T =32 
lit =TO0CHE 
Vt =EH HflllT 
Rt =EH BBS 
X = 7 
Vt =ETBPES 
2f = RECULE 




BANDEROLLE 



Emportez votre 1211 pour la prochainemanif, vous pourrez 
fabriquer vos affiches sur place ! 

Bernard POYAU 

Lexecution en est fort simple : a chaque appel (point d'interrogation) 
entrez le signe voulu, qui s'imprime alors sur I'imprimante. 
Lintroduction de I'espace (touche SPC) permet de separer deux mots 
Lorsque le texte est termine, I'introduction du signe E permet de dega- 
ger la hande 



5: REM 'BANDEROL 

E" 
10: INPUT fl« 
20: IF fl*="E" 

GOTO 550 
30: IF A»=" "LET 

E:=505050505 
40: IF A*="A"LET 

8=941424109 
50: IF A»="S"LET 

B=1722222206 
60: IF A*="C"LET 

E=3755353512 
70: IF A*="D"LET 

6=1235353506 
80: IF fl*="E"LET 

B=3522222206 
90: IF A*="F"LET 

B=5444444406 



100: IF A*="G"LET 

B=2721213512 
110: IF A*="H"LET 

B=651515106 
120: IF At="I"LET 

B=535063505 
130: IF A*="J"LET 

B=848484836 
140: IF A*="K"LET 

B=3537405106 
ISO: IF AS>="L"LET 

B=4848484806 
160: IF At="M"LET 

B=653435306 
170: IF ft*""N"LET 

6=650515206 
180: IF A$="G"LET 

B= 12353535 12 
190: IF A$="P"LET 




B=4544444406 
200: IF AI="Q"LET 

B=1138213512 
210: IF H*="R"LET 

B=2329324406 
220: IF A*="S"LET 

B=2722222230 
230: IF A*="T"LET 

8=5454065454 
240: IF A*="U"LET 

B=848484808 
250: IF A$="V"LET 

B=1449484914 
260: IF A*="W"LET 

B=649394906 
270: IF A*="X"LET 

B= 16405 140 16 
280: IF A»="Y"LET 

B=4752155247 



290: IF A*="Z"LET 

B=2524222120 
300: IF A*="0"LET 

8=1235353512 
310: IF A*="1"LET 

B=506535205 
320: IF A*="2"LET 

B=23222 12034 
330: IF A*="3"LET 

B=1722223537 
340: IF A*="4"LET 

6=5010414039 
350: IF A*="5"LET 

6=2822222213 
360: IF A*="6"LET 

8=2722222212 
370: IF A*="7"LET 

B=4746105454 
380: IF A*="8"LET 

E=1722222217 
390: IF A*="9"LET 

B=1222222230 
400: IF At="i"LET 

8=505364805 
410: IF A*=" !"LET 

8=505264805 
420: IF A*="."LET 

8=505054805 
430: IF At="!"LET 

8=505050705 
440: IF A»="?"LET 

8=4544215453 
450: IF A*=":"LET 

8=505400505 
460: IF A*="<"LET 

8=535373105 
470: IF A*="V'LET 



B=53 1373505 
500: IF B=OGOT0 1 


510:F0R C-1T0 5 
520: D=B- 100* a NT 

(B/100>):8= 

IHT (B/100>: 

PRINT " 

m ;a*<d;i 

530: NEXT C 
540:PRINT 

GOTO 10 
550:PRINT 

PRINT 

PRINT 

PRINT " " 
560: END 

VARIABLES 



A*. 5. 
At. 6. 
A*. 7. 

at.s. 

A*. 9. 
At. 10. =8888 8 
At. 11. =8 3888 
At. 12.= 88888 
At. 13.= 8 8388 
At. 14.= 88838 
A*. 15. =8888 
At. 16. =88 88 
A*. 17.= 88 88 
At. 18.= 8838 
At. 19. =388 
At. 20. =88 8 
At. 21. =8 8 3 

1 »™| »**^s 



A*. 22. =8 3 
At. 23. =8 8 
At. 24. =8 8 
At. 25. =8 
At. 26.= 88 8 
At. 27.= 88 
At. 28.= 88 
At. 29.= 8 8 
At. 30.= 8 B 
At. 31.= 888 
At. 32.= 88 
At. 33.= 3 

At. 34. =8 
At. 35. =8 
At. 36.= 88 
At. 37.= 3 
At. 33.= 8 
A*. 39.= 
At. 40.= 
A*. 41.= 
At. 42.= 
At. 43.= 
At. 44.= 
At. 45.= 
At. 46.= 
At. 47.= 
At. 48. =8 
At. 49.= 8 
At. 50.= i 
At. 51.= 
At. 52.= 
At. 53.= 
At. 54.= 



88 



8 



8 



3 



PC 1211 



EMPRUNT 



Le programme Emprunt va vous permettre non pas de 
vous enrtchir mais de controler I'amortissement de diffe- 
rents types d'emprunt. A vous de choisir ! 

Marie-Laure BESSON 



REM "TABLEAU AMORT ISSEMENT DE DIFFERENTS TYPES D'EMPRUNT" 

REM ■"ftUTEUR: MARIE-LAURE BESSON" 

PRINT "EMPRUNT-OBLIGATIONS" 

INPUT "EMPRUNT-OBLIGATIONS A LOTS <0/NI " I W» 

IF W«-"0" THEN 1580 

INPUT "NOMBRE D" OBL IGATIONS EMISES"IN 

INPUT "VALEUR NOMINALE D - UNE DBL IGAT ION" 1 V 

INPUT "VALEUfi D'EMISSION"lE 

INPUT "NOMBRE DE VALEURS DE REMBOURSEMENT" 1 NR 

DIM AR(NR) ,R(NR>.NN(NR),R1 tNRI ,S<NR> ,SS<NR+1) , X(NR) ,L2<NR) 



PRINT "VALEUR DE REMBOURSEMENT. NOMBRE D'ANNU: 
FDR J-l TO NR 835 

INPUT R(J) ,NN(J> Q40 



INPUT "ANNUITES CONSTANTES (I 
IF D»-"N" THEN 1260 
FOR J«l TO NI 



340 


NEXT J 


330 


IF NR-1 THEN 510 




FOR J-l TO NR 


370 


S(J>-( < (1*R(JI ) NN(J) l-U/R 


380 


NEXT J 


390 


SS(0)-OiSSIl)-li ¥-0 


400 


FDR J"2 TD NR 


410 


N7-NNIJ-I1-1 


420 


SS(JI-(<1*R1 (J-l> )"N7)«(R1J- 


430 


NEXT J 


440 


FOR J-l TO NR 


450 


X(J)-S(J>»SS(J)*SS(J-1 J 


460 


Y-Y+X(J> 




NEXT J 


480 




490 


AN-N»C*A(1)»R<I) 


500 


GOTO 530 


S10 


AN-N"R(l)»(Ri (1>/<1-(1+R1 (1 


520 


AU)-N*R1 (ll/t ll*Rl (I) 1 "Nl- 




BUJ=INT<A(1) » :T-B(1):DC<1) 


540 


J =2 


550 


FDR K»I TO NR 


560 


IF K-l THEN 610 


570 


A<J)-A(J-1)<MR<K-1)+C) /RCKJ 


SBC 


8(J)-INT(A<J) )iDC(J)=A<J)-B 


390 


T«T*B<J> 


600 


J-J+l 


610 


FDR Z-2 TO NN(K> 


620 


A(J»-A(J-1H11*RI IK)) 


630 


BM>«INT(AIJ> >; DC(J)-A<J)-B 


640 


T-T+B<J> 




J-J*l 


660 


NEXT Z 


670 


NEXT Y. 


6SO 




690 








710 


FOR J-l TO Nl-t 


720 


D1»DC<J):D _ '-DC(J+1) 




IF DI =D2 THEN 770 . 


740 


SWAP FlJI.FIJ+t) / 


7S0 


SWAP DCIJJ.DC1J+I) / 


760 


FL=1 [ 


770 


NEXT J V , 


7 BO 


IF FL-1 THEN 700 Vfo 


790 


FDR J*l TO EC i 


a, ,. . 


J1=F(J) 1 


810 


BUI>=B1JI1 + 1 * 


820 


NEXT J 


B30 


IF W«="0" THEN 1690 




BBO LPR 



900 LPR 



940 LPR 



I LPr: 
) lpr: 

I END 

i lpr: 

i LPR: 




TlLPRINTlLPRINT "EMPRUNT REMBOURSE PAR ANNUITES [ 

TsLPRINT TABtlO) "TABLEAU D - AMORT 1SSEMENTS" 

T "NOMBRE D-DBLIGATIONS EMISES";N 

T "VALEUR NOMINALE D'UNE ACTION"lV 

T " INTERET"! I 

T "COUPDN ANNUEL D'INTERET":C 

T "ANNU1TE THEORiaUE"tAN 

T "VALEUR DE REMBOURSEMENT ■ 



in t 



'iR(J) 



ANNEES' OBL I GAT IONS 

■ INTERETS 

1 VIVANTES 
MONTANT ' 



ANNUITES '" 
NOMBRE ' " : 
• EFFECTIVES 
TITRES "'I 



N*MT 

NT TAB<5) ;iLPRINT JiiLPRINT TAB(12)"!' 

WliLPRINT TABI24) " • "I iLPRINT BIJU 
TABI35) ):LPRINT MT::LPRINT TABI50)' 

NT TABI64) i:LPRINT AEliLPRINT TAB<78)' 



J-l TO NR 



"NOMBRE D - OBL IGAT IONS EMISE'J'IN 

"INTERET"; I 

"VALEUR NOMINALE";V 

"VALEUR DE REMBOURSEMENT" 

TD NR 
'•R<"[JI")»"lR(J>i 

NT "NOMBRE D - ANNUITES!N1 

NT "NOMBRE DE TITRES AMORTIS CHADUE ANNEE")AM 

NT "MONTANT DES AMORTISSEMENTS ANNUELS" 

J-l TO NR 



iRIK»+N2»C 
530 N2-N2-I 
540 J-J + I 



570 END 
58'.' INPUT 
590 INPUT 
fcOO PRINT 
RE "BOURSE MEN 



630 PRINT 

-,-!■■ ■-!■■ INT 

DROIT " 

650 PRINT 
660 PRINT 
670 INPUT 



THEN 2140 
iNNUITE5"iLPRINT TAB<15>"M0NTANTS C0UPDN5" 
"MONTANT ANNUEL" 



iLPRINT TABUS 



:LPRINT TAB(- 



NDMBRE TOTAL D* GBL IGAT IONS REMBOURSEES PAR LOTS'iL 
TOTAL DES LOTS"ILT 
LES OBLIGATIONS BENEFICIENT D'UN LOT EN PLUS DU 



EZ 3, SI ELLES PERDENT LE DROIT" 



6B0 I 

6fi5 LPR I NT: LPR If 



690 LPRINT 

7O0 LPRINT 
710 LPRINT 
720 LPRINT 
730 LPR INI 
740 LPRINT 
750 LPRINT 
760 LPRINT 
7 70 LPRINT 
7BO FDR J»l 
790 LPRINT 
80O NEXT J 
BIO LPRINT 
B20 LPRINT 
830 GOSUB 2 
B4U B<OI-Oll 
B50 LPRINT 



8't" 



B70 LPRINT 
880 LPRINT 
LPRINT 
LI '■ irir 
LPRINT 
920 LPRINT 
930 LPRINT 
940 LPRINT 
930 LPRINT 
960 LPRINT 
970 
9BO 
990 

:■.„„, 

2010 
2020 



EMPRUNT-OBLIGATIONS A LOTS" 

NOMBRE D'OBLIGATIONS REMBOURSEES PAR LOT" 

MONTANT TOTAL DES LOTS";LT 

ANNUITES CONSTANTES" 

NOMBRE D'OBLIGATIONS EMISES"IN 

VALEUR NOMINALE"lV 

TAUX D" INTERET"! I 

COUPON ANNUEL" I C 

VALEUR(S) DE REMBOURSEMENT ■ 

TO NR 



" I J I" 



IR<J) 



tITE THEORIOUE" 



" f TAB (7) 

iB(60) •' !"1TAB(78I I 

ANNEES ' OBL I GAT I ONS ' 

COUPONS ! ANNUITES 
" ITAB<7)"' VIVANTES ! NOMBRE 
TAB<60) " • EFFECTIVES ' " 

TAB<7>'V"|TABU9)"' TITRES 
TAB<60> ITAB<78> " I" 



AMORTISSEMENTS 



I J-l 

i FOR K-l TO I 

> FOR Z-l TO 



GOUPU- 



2O40 
T' ■?,' • 
2060 
2070 
20BO 
2090 
2100 



2190 

2200 
22 lO 
2220 
2230 
2240 
22SO 
2260 
2270 



AE-HT*IN+LT 

LPRINT (JiTAB<7> ;NV;TAB<20) IB(J)-Lt 

LPRINT TAB(2B) IMT|TA8(46) I ; INI 

LPRINT TAB (60) I" ! " ; AEI TAB (79) " '. " 
J-J+l 
NEXT Z 
NEXT K 

LPRINT " "I 

LPRINT " " 

END 

LPRINT "EMPRUNTS-QBL IGAT IONS A LOTS" 

LPRINT "NOMBRE D _ 0BHGATIDN5 REMBOURSEES PAR LOTS 

LPRINT "MONTANT TOTAL DES LOTS";LT 

GOSUB 2290 

LPRINT "ANNEES", "AMORTISSEMENTS", "COUPONS", "LOT 

J-l 

N2-N 

FOR K-l TO NR 

FOR Z-l TO NN(K) 

LPRINT J.AR(K) ,N2*C, LT-L2 (K > , AR (K) +N2»C+LT-L2<I 

N2-N2-AM 

J-J+l 

NEXT Z 

NEXT K 

END 

FDR J-l TO NR 

IF LI-I THEN L2(J)=0 

IF Ll-2 THEN L2( J) =(L» (R ( J ) *C) 1 

IF LI-3 THEN L2 ( J 1 - !L*R (J) > 

IF LI=4 THEN L21J)«<L»C) 



NETS", "ANNUITES" 



2350 RETURN 



BOWLING 



Un vrai BOWLING avec STRIKE et compteur de points ; 
n'oubliez pas vos lunettes ! Lancez le programme avec 
DEF A et la bille avec la barre d'espace. 



Charles CARON 



""• 


1 




."' "" "" 


1 






1 




Vous- 0,'v'ez 25 points 




;"'. . 


3 




<<<<<<<<<<STRIKE>>>: 


>yyy y y y 




;"'. 


5 




Score final '• 84 




*** 



CHA 



*** 



*su 



I : REM 

AUTEUR**** 
2: REM 

RLES CflRON 
3: REM 

BOWLING*** 
1:REM 

R PC 1500* 
5: "fi" CLEAR : 

RANDOM :UA1T 
:D1M A<9):F0R 
L=1T0 5: T-0 

10:fl(0)=8:«(l J=l: 
A(2)=4:A<3)-16 
:A(t)-61:A(5)= 
2:A(6)=-8:AC7) = 
32:A<8)=4:AO) 
= 16 

20:A=AU> + AC2) + A( 
3)+AC4;:B=AC5) 
-tA(6)+A(7):C=A 
(8)+fl(3)iD--(l(8 
): I=l:GPRINT A 
;E;B;EjCjE;D 

25IGPR1NT A;E;B;E 
;C;E;D; : CURSOR 
20:PR1NT L 

30: 1 = 1*2.'GCURS0R 
50:GPR1NT I:A4 
^INKEY* ! IF A* 
=" "GOTO 100 

40: IF I=64G0T0 60 

50: GOTO 30 

60: 1-1/2: GCURSOR 
50:GPR1NT I : AS 
= 1NKEY* : IF A* 



=" "GOTO 100 
70: IF I^IGOTO 30 
80: GOTO 60 

100:T=T+l:FOR J=50 
TO 0STEP -1: 
GCURSOR J: 
GPRINT 1;: 
GCURSOR J+l: 
GPRINT E:BEEP 
1, 30, 30: NEXT J 
:BEEP 5, 10, 100 
: GOSUB 200: 
GOSUB 400 

110: IF T=2PAUSE : 
PAUSE "Uous ou 

ez";P;" points 

":NEXT L:GOTO 

700 
120: GOTO 20 
200:Z=RND 3: IF E=2 

GOTO 280 
210: IF I=1LET AC1) 

=0 
220: IF I=2LET 0(1) 

=0:AC2>=0:A<;5) 

=0 
230: IF 1=4LET AC] ) 

=0:A<2)=0:A(3; 

=0:A(4)-0:AC5> 

=0:A<6)-0:A(8) 

=0 
240: IF I=8LET A<6> 

=B:S(8)=8!flO) 

=0:A<0)=0 
250: IF I=16LET AC] 

)=0: AC2J=0:AC3 



)-=0:A(4^0:A<;6 


)=8iW7)=B:W3 


)=0 




260: IF 


I=32LET A<3 


)=0: A(4;=0:AC7 


)=0 




270: IF 


1=64LET A<4 


1=2> 




275: RETURN 




280: IF 


1-=1LET 


A(l) 


=0 


A(2)=0 


A<5J 


=0 






290: IF 


I=2LET 


aci; 


=0 


A<2)=0 


A<3> 


=0 


A<5;=0 


A<6> 


= 


AC8)=0 




300: IF 


I=4LET 


AC1) 


=0 


A<27=0 


AC3) 


=0 


A<47=0 


A<5) 


=0 


A<6)=0 


AC7) 


-0 


A(8)=0 


no; 


=0 






310: IF 


I=8LET 


AC1) 


=0. 


A(2)=0 


A<3; 


=0. 


AC4)=0 


AC5) 


=0. 


A<6)=0 


A<7) 


=0. 


A(8>=0 


AC9J1 


= 


A(0)=0 





320: IF I=16LET AC1 
)=0:A(2)=0:OC3 
)=0:A(4)=0:A(5 
)=0: A<6)=0:O<7 
)=0: A(8>=0: AC9 
)=0 

330: IF 1=32LET A(2 
)=0:A(3;=0:A<4 



)=0:A(6)=0:A(7 

)=0 
340: IF I=64LET A(3 

)=0:A(4)-=0:A(7 

)=0 
350: RETURN 
400: IF T=1G0SUB 50 

0: RETURN 
410: IF T=2G0SUB 60 

0: RETURN 
500:N=0:FOR G=0TO 

9: IF A(G^0LET 

N=N-tl:NEXT G: 

GOTO 520 
5I0:NEXT G 
520: IF N=10PAUSE " 

«««««STR1 

KE>>>>>>>>>>": 

p=P+50: T=2 
530: RETURN 
600:U=0:FOR G=0TO 

9: IF A<G:>=0LET 

U=U+l:NEXT G: 

GOTO 620 
610:NEXT G 
620: IF U=10LET P-=P 

+25: RETURN 
630: P=P+U: RETURN 
700:UAIT :PR1NT "S 

core f i na I : " J 

P:END ■ 



Suite de la page 7 

\y Patois basic 



ORGANISATION DU GRAPHISME ET DU TEXTE : 
Trois mode d'utilisation de I'ecran ; 

- Texte 

- Graphisme basse resolution 

- Graphisme haute resolution 

Chaque mode graphiqtie peut etre total (tout I'ecran) ou mixe avec du 

texte (4 dernieres lignes). 

II y a deux pages de texte et deux pages graphiques. 



Texte : 

TEXT 
HOME 
VTAB 
HTAB 



24 lignes, 40 colonnes. 
Selectionne le texte 
Efface I'ecran. 
Tabulation verticale 
Tabulation horizontale 



Basse resolution 40 lignes, 40 colonnes. 

l6couleurs. 
GR Seleclionne le graphisme 

COLOR= Seleclionne la couleur 

PLOT Dessine un point 

HLINE Trace une horizontale 

VLINE Trace une verticale 

Haute resolution Page 1 :280*1 60 points 
Page 2:280*192 points 
HGR Selectionne page 1 

HGR2 Selectionne page 2 

HCOLOR Selectionne la couleur 

HPLOT Dessine un ou plusieurs points 



POKE ET PEEK COURANTS : 

POKE 32.G Fixe la marge gauche de I'ecran a la valeur g 

POKE 33,L Fixe la longueur de la ligne d'ecran a la valeur I. 

POKE 34.H Fixe la 1"" ligne de I'ecran a la valeur h 



POKE 35. B 
POKE 36. H 
POKE 37, CV 
POKE -16304.0 
POKE -16303,0 
POKE -16302.0 



Fixe la demiere ligne d'ecran a la valeur b. 
Amene le curseur en position horizontale ch. 
Amene le curseur en position verticale cv. 
Passage du mode texte au mode graphique. 
Passage du mode graphique au mode texte 
Passage du mode graphique + texte au graphi- 
que total. 

Passage du mode graphique total au graphique + 
texte. 

Passage de la page 1 a la page 2 
Passage de la page 2 a la page 1. 
Passage d'une page graphique a la meme page en 
texte. 

Passage dune page texte a la meme page en gra- 
phique 

Annule le flag pour onerr goto 
Restaure le flag pour onerr goto 
Prepare le clavier pour une lecture 
Teste si un touche a ete enfoncee 
Lecture de la position horizontale du curseur 
Lecture de la position verticale du curseur. 
X-PEEK{-16336) Produit un "clik" sur le haut-parleur 
X-PEEK(-16287) Lecture du bouton de la manette 
X-PEEK(-16286) Lecture du bouton de la manette 1. 
X-PEEK(218)+PEEK(219)*256 X contient le numero de la ligne ou 

a eu lieu I'erreur. 
X-PEEK{222> Lecture du code de I'erreur. 



APPEL DE SOUS-PROGRAMMES EN ROM : 



POKE -16301.0 

POKE -16300.0 
POKE -16299,0 
POKE -16298.0 

POKE -16297,0 

POKE 216.0 
POKE 216,255 
POKE -16368,0 

PEEK(-16384) 
CH-PEEK(36) 
CV-PEEK(37) 



CALL -936 
CALL -958 
CALL -868 
CALL -922 
CALL -912 
CALL -1994 

CALL -1998 
CALL 62446 



Nettoie la fenetre d'ecran (home) 
Nettoie I'ecran a partir de la position du curseur 
Nettoie la ligne a partir de la position du curseur. 
Emet un saut de ligne. 
"Enroule" la page de texte (scroll). 
Nettoie 20 lignes de la page 1 graphique basse re- 
solution. 

Nettoie la page 1 graphique basse resolution. 
Nettoie la page graphique haute resolution cou- 
rante (noir). 

Nettoie la page graphique haute resolution (cou- 
leur). 



PARTICULAR1TES : 

CALL Appel d'une routine en assembleur 



CLEAR 

DRAW 

FLASH 

GET 

HIMEM: 

LOMEM: 

NORMAL 
PDL 

POS 

RND 



ROT- 

SCALE- 

SCRN 

SPEED 

USR 

XDRAW 



Reinitialise les variables. 
Dessine une figure codee 
Laffichage passe en mode flash. 
Saisie d'un caractere au clavier (sans return). 
Limite superieure de la memoire de I'utilisateur 
(protection). 

Limite inferieure de la memoire utilisateur (pro- 
tection). 

Laffichage passe en mode normal. 
Lecture de la position de la manette de jeu. 
Lecture de la position horizontale du curseur 
Nombre aleatoire de a 1 
RND(0) redonne le dernier nombre. 
RND(1) nouveau nombre. 
RND(-1) redonne la meme sequence 
Angle de rotation d'une figure (draw) 
Taille d'une figure (draw) 
Basse resolution, donne la couleur du point. 
Fixe la Vitesse d'affichage des caracteres. 
Appel d'un programme en assembleur avec pas- 
sage d'un parametre. 
Efface une figure predefinie 



OPERATEURS LOGIQUES : 
5>1 Donne vrai code 1 

5—5 Donne vrai code 1 

5<1 Donne faux code 



- Les caracteres ne sont pas redefinnissables di- 
rectement. 

- Lapple ne possede pas de processeur pour la 
synthese du son. Les routines sont ecrites en as- 
sembleur 

L'adresse 768 (300 en hexa) est souvent I'adres- 
se de debut d'un programme en assembleur (son, 
dessins...) car c'est une zone inutilisee par le ba- 
sic. 

- Les figures (shape) utilisees avec draw, xdraw 
etc sont cotiees sous une forme speciale : elles 
devront etre redessinees ■ 



Suite de la page 1 



Nr* mini-logo 




350 DIM PAS <25) .TRX (25) ,APX(2S) : 
REM PA5.MODE DE TRACE ET 

DRAPEOU D'APPARITION 

360 DIM ABX(30) ,CBX(50) : REM *d 



Si REM 



♦ CHR» (41 
- 0:APX - 1:AP 
10lPAS<0> - 1 



SO - 1.5706! REM PI/2-90- 
REM — pour ONERR — 
POKE 790,104: POKE 791.168: F 
793.104) POKE 793,166: POKE 
794,223: POKE 795,154: POKE 
796,72: POKE 797.152: POKE 7 
9B,72t POKE 799.96 
REM 



330 P - O 



"C'EST TOUT* 1 



REM -- EXEC -- 
) ER - 0:CO* ■ IN»(0> 
1 IF ERR THEN 9030 

> REM Rech»rchp tjp 1 'instruc- 
tion et SKftcutinn 

) C» - LEFT* <CO»,4> 

5 REM 

J IF C» ! > "AVAN" THEN 710 
) A - VAL ( MID* (CO*, 10) I • P 

A:X1 - X ♦ A • COS (Z)l VI - 

V * A « SIN (Z> 
' IF XI . 6 AND XI ■ 272 AND V 

I 6 AND VI 133 THEN 6SO 

1 PRINT CO*i " : H0R5 DE L ' ECRA 

N'lER - 1: GOTO 700 
!> IF APX - 1 THEN COX - O: GOSUB 

30 
) IF TRX - 1 THEN CO"/. - 7 
J IF TR7. » 2 THEN CO'/. ■ O 

> IF TRX .. O THEN HCOLOR- 
COX: HPLDT X,V TO XI, VI 

) X - XllV - VI: IF APV. » 1 THEN 
CO*/. - 7 1 GOSUB 30 

) GOTO 90O0i " 

) IF C» < i "TOUR" THEN 760 



29578 * 1 



(CO», 



&V 



fc* 



750 GOTO 900Os " 

760 IF C« T > "FAIS" THEN B50 

770 C» = MID* (C0«,6):C - O 

773 IF C» - -" THEN BIO 

7B0 IF C = DC THEN 810 

790 IF C* - NC»tC> THEN B20 

BOO C - C + 11 GOTO 7BO 

BIO PRINT "JE NE C0NNA1S PAS "C» 

: ER ■ 1 : GOTO S40 
B20 RX(N> » P:P » ACXtO - UN - 
N ♦ 1: IF N ' 25 THEN PRINT 
"PLUS DE 25 PROCEDURES EMBOI 
TEES":ER - It GOTO B40 
BIO RABIN) ■ PAS1N - I I : PAS ■ PAS 
!N)iTRX<N> - TRX(N - i I : TRX ■ 
TPXtNl :APX(N> - APXIN - l):A 
PX • APX(N) 

840 GOTO 9000t" 

B30 IF C* • "POUR" THEN 9BO 

B60 POKE - 16303, oi REM -RwtB 






1" 



B70 IF DC - 50 THEN PRINT "I 

L N'V A PLUS DE PLACE EN MEM 
01 RE POUR UNE NOUVELLE PRGC 
EDURE"iER - Ii GOTO 970 

BBO NC*<DCI - MID* (C0*,6):AC'/.(D 



LIB 



■ DC ■ 



B90 


GDSUB 20O 


970 
980 




IF CO* - "ECRIS" THEN TRX ■ 




1:TRX(N1 - li BOTO 90O0 


9B5 


REM 


990 


IF CO* - "GOMME" THEN TRX • 




2iTRX(N) - 2: GOTO 90O0 


993 


REM 


10O0 


IF CO* - "N'ECRIS PAS" THEN 




TRX - 0: TRX IN) - O: GOTO 900 




O 


1003 


REM 


1010 


IF CO* - "APPARAIS" THEN AP 








A = 1 TO 6: XX - PEE* 1 - 16 




336): NEXT : GOSUB 30: GOTO 




9000 


1015 


REM 


1020 


IF CO* - "DISPARAIS" THEN A 




PX - OiAPXIN) - O:C0X = Oi FOR 




A - 1 TO 6: XX - PEEK < - 16 




336)t NEXT : GOSUB 40: GOTO 




900O 




REM 


1030 


IF C* - "PAS-' 1 THEN PAS - VAL 




I MID* (CO*, 3) 1 :PAS1N) = PAS 




: GOTO 9O0O 




REM 


1040 


IF C* » "TEXT" THEN TEXT : 




GOTO 9000 


1043 


REM 




IF CO* - "IMAGE" THEN HOME 




i VTAB 21i POKE - 14304, Ol GOTO 


1033 


REM 


1060 


IF CO* "EFFACE" IHfcN 1 


1070 


HOME : HGR : GUSUB 130 


1 OBO 


VTAB 21 


1090 




1100 


IF CO* "C'EST IOUT" THEN 


1 110 


IF N ■ THEN ER - H GOTO 
N = N - l:P • RK(N) 


1 1 20 


1 1 30 


PAS = FAS(NI:TRX = 1RV.(N) >Af ' 




X = APX(N) 


1I4U 


GOTO 9000: " 


I 130 


IF CO* "REPETE" THEN I 



I IF N - O IHEN PRINT "COMMA 

NDE INTERDITE EN MUDE IMMfcOl 

AT"tER - 1: GOTO 1180 
) NB « NB + 1:CBX(NB) • ltABX< 

NB) - P 

i GOTD 9000:" 

i IF RIGHT* {CO*. 4) "FO 

IS" THEN 1240 
) IF NB ■ - 1 THEN PRINT "I 

L MANDUE UN ' REF'ETE ' OUELOUE 
PART":ER - 1: GOTO 1 230 
I IF VAL (CO*) • - CBX(NB) THEN 

NB - NB - 1: GOTO 1230 
i CBXtNB) - CBXINBl + 1:P * AB 

X(NB) 



!CO*,B) : GOSUB BO 



pas trouve "c*: goto irg 



1270 


NC*(C) » 


"": PRINT 


"J'AI OU 


12B0 
1290 


LIE "C* 






IF CO* 


"AU C 


IN" THEN 




1340 






1300 


COX - 0: 


GOSUB 30 1 


IF TRX - 




THEN 1320 




1310 


COX = Oi 


IF TRX =■ 


THEN CO 


1313 


HPLOT X 


V TO 7,7 





"NORD" THEN 1390 



P - 19 THEN GET i 



I C* - MID* (C0*,7>: GOSUB BO 
: IF ER - I THEN PRINT C»" 
NEXISTE PAS": GOTO 1490 

' TEXT : HOME :I » ACX(C):J - 



20 = 19 THEN 



> IF C* ■ "SAUV" THEN 15B0 
J C» - MID* (CO*. 7): GOSUB SO 

> IF EP - I THEN PRINT "IL F 
AUT DEFINIR UNE F0NCT1DN AVA 

NT DE VOULOIR L« SAUVER": GOTO 
1 570 

> I - ACX<C1 

' PftlNl D* "OF EN"C*D*" DELETE "C 

*D*"0PEN"C*D*"WR1TE"C» 
' PRINT imilll IF IN*(II < > 

"C'E-iT IOUT" IHEN 1-1*1: 
HOTCl IS30 
I PRINT CHR* (4) "CLOSE" 

• GOTtl 9-»'0t" 

) IF C* < > "CHAR" THEN 1700 
I C* ■ MID* (CO*. 8) 

> GOSUI- 8"; IF ER - 1 THEN ER 
■ Oi GOTO 1390 

I PRINT "JE C0NNAI5 DEJA "C*: 

PRINT : GOTO 1690 
) IF DC - 50 THEN 

JE NE PEUX PLUS RIEN 

RE"jER - I: GOTO 1690 
' ONERR GOTO I63u 

• FP1NT D*"'JERIFY"C*: GOTO 16 

' CALL 79oi PO»E 216.0: PRINT 
C»" N'EST PAS SUR LA DISOUET 
TE":ER - 1: GOTO 16B0 

' REM charqempnt AprP« veri4 

> PRINT D*"OPEN"C*D*"READ"C* 



INT 



1670 


GOSUB 300 




1680 


PRINT D»"CLOSE" 




1690 






1693 


REM 




1 .-.,.. 


IF C* - "PAS*" THEN PAS - 


P 




AS + VAL ( MID* ICDl.il): 


GOTO 




1730 




1710 


IF C* - "PAS-" THEN PAS = 






AS - VAL ( MID* (COS, sin 


GOTO 




1730 






IF C* - "PAS"" THEN PAS - 


P 




AS » VAL ( MID* (CD*,5))I 


GOTD 




17SO 






IF C* - "PAS/" THEN PAS " 


P 




AS / VAL ( MID* <C0*,5)): 


BOTO 




1730 




1740 


GOTO 1760 




1730 
1755 


PAS(N) = PAS: GOTO 9O00 








1760 


IF C* •: "VA E" THEN IB 


20 


1770 


XI - VAL t MID* lCO»,6) ) 




ireo 


K - 6:X* - "" 




1790 


IF X* < > "/" AND t L 
(CO*) THEN X* - MID* (CO* 
,1>:K - K * 1: GOTO 1790 


EN 


1SOO 


VI - VAL ( MID* <CO*,K> ) 




1B10 


GOTO 630: REM execution 
d*Dlac«ment 




181! 
1B20 






IF C* - "RIEN" THEN 9000 




1B2S 
1830 






IF C* ' "MODI" THEN 19 


30 



1B40 IF LEFT* (CO*. 71 "MOD 

IF IE" OR LEN (C0»> 9 THEN 
ER - 1: GOTO 1920 

1B30 C» - MID* (CO*. 91: GDSUB 80 



IB70 TEXT : HOME :I - ACX<C) 
1880 PRINT IN*(I): IF IN* ( I > 

C'EST TOUT" THEN PRINT 

1920 
IB90 INPUT , " , iA*: IF A* » "" 

1900 IN*( I) - AS: PRINT 

1910 1-1*1: GOTO 1880 

1920 GOTO 9O00: " 

1930 REM II rMta Hr la pi* 



BB99 REM 

8900 REM On cnmi 
B910 CO* - "FAIS " 



Suite de la page 4 



oufte oe ta page <* 



leS* PRINT RT S . 4.: ' 

OMEGA) " 

105 6 PRINT "======: 



VITE55E 



iasa print 

lOSe PRINT TAB 5, " * LTTESSE *" 

1062 PRINT TRD 3 V "U i a.Pl.F" 

IBS* PRINT 

1066 PRINT TRB 5; " * PERIODE *'" 

106O PRINT TRB 5, "T - 2. PI / U" 

1078 PRINT 

10-72 PRINT TRB 5:"* FREQUENCE * "' 

107* PRINT TAB 5; 'F ■ 1 / T" 

1076 PRINT 

107O PRINT TAB B J " • PUISSANCE MO 

VENNE #" 

10B0 PRINT TAB 5; "P i U (EFF) . I (E 

FF) .COS PHI" 

1035 PRINT 

IBS* PRINT TAB 5, ' * FREQUENCE DE 

RESONANCE #" 
1085 PRINT 

10B6 PRINT TAB 5, "L.C.O =1" 
IBS? PRINT AT 18,10J"a" 
1090 PRINT AT 2I.B.-'i- TAPER UNE 
TOUCHE POUR RETOUR * " 

1B9S IF INKEYJO"" THEN GOTO S0 
109* GOTO 1093 ■ 



KRYPTON 



II vous faudra etudier avec soin votre strategie afin de ra- 

mener a bon port le tresor KRYPTON. 

Ce programme s'adapte sans aucune modification ou 

presque, sur tous les micros, les particularites de I'ORIC 

n'etant utilisees que dans la presentation. 

En ligne 11 les commandes PAPER et INKont ete etudiees 

pour une TV noir et blanc. 

Pourlespossesseursd'uneTVcouleur.lesparametresde- 

vront etre changes. 



P PIERONI 



I rem+==================«==========+ 

z rem: i 

3 REftHOOFTON Par P. PIERONI ♦ 

4 rem: 

5 RE Hf— »—■!!■ IMMIMI 

6 REH 

7 REM Materiel 'Oric 1 

8 REM 

II PAPER2 INKS PPINTCHR»(1?> RUN 12 

12 PRINTCHRtt 12> PRINTGHR*(4)»CHM<£?) 



KRYPTON ",CHR*< 



: de strate9ie" PRINTPRINT"V 



13 PRINT PRINT PRINT PRINT PRINT"Cree Par P. PIERONI" UAIT500 PRINTC 
HR»t 12 > 

14 PRINT" KRYPTON" 

15 PRINT PRINT PRINT-H s'a9it d'l 
ou* vou* trouvez dans une ville" 

16 PRINT"et vows diri9ez un Persorm*9e" PRINT 

17 PRINT"Vous devez trouver un tresor et le ramener a. vo 
t de depart" 'PRINT; PRINT 

18 PRINT'TaPez *ur unt touch*" 
1? GETAJ 

20 PRINTCHR»U2>J" KRYPTON" 

21 PRINT PRINTPRINT PRINT"Vcu* P-ouvez vw» d*Hictr en **P 

22 PRINT"? N/ord,(S>ud,<E>st,(OXie*t" 

23 PRINT PRINT"vou* Pouvez aussi donner de* ordres" 

24 PRINT-'Un ordre e»t comPO*e d'ur. verbe * 1'lnfinitif 



25 PRINT"*in9uli*r":PRINT"Exer«Pl* REGARDER LAMPE 

26 PRINT'PRINTPRINT"T*Pez *ur une touche et lue 
! tl'iGETM 

27 PRINTCHRt(i2JiCHR»<l?>i"VeuiUez Patienter quel<lues m»t»nt* 

29 DIM0< 18>>DIME< 18 ) DIMSl lfi^DlMW 16 v 

30 D IMflC 50 }■■ D IMBC 50 > ■■ DI P1CC S0 > ■■ PIMM 50 > 

31 OIMF(50) DIMG<50/OlMHt50>^IMU50> 

32 D I M J( 50 ) i DIMKC 50 > DI ML< 50 > ■ D IMMt 50 .• 

33 DIMP< 50 .' ' DIMGK 58) DIMRc 58 > ' DIMU 58 > MMK 50 

97 REM 

98 REM ENTREE DES DQNNEES 

93 REM 

180 F0R1-1T017 

182 REflDN- | >,£< 1 j,S : . ..... I ■ 

184 NEXT 

118 F0RI-1T049 

1 1 2 READA<. I ) READB< 1 1 REflDa I J ■ REAHX I > 

114 RCflClPCl) READGU.' RERDHa> : READiU.> 

1 1 6 READ J< I > ■ READK* I > ' REfiDL< I ) i READMt I ) 



commence 







US READP< I ) REA0Q< I > RERDRt I ; READT-: 1 j READU? I 
126 NEXT 

197 REM 



I REM - 



■ P R O GR HHM E ■ 



139 REM 

280 IFN<CX>0THENNO«1 

282 IFS<CK>0THENSU-1 

284 IFOXCX >0THENOU=1 

206 IFE<CX>0THENES*1 

218 PRINT PRINT'Je peux aller ■■ 

212 IFNO«lTHENPRINT"nord "i 

214 IFSU«lTHENPRINT"*ud "J 

216 IFES=>lTHENPRINT"«st "t 

218 IFQU=lTHENPRINT"oue*t" 

219 PRINT 

220 GOT0221 + INTIRNDU J*5 .> 

221 PRINT"Quel est non prochain mouveotent ?" Gl 

222 PRINT"0ue f*i*-je 7" GOTO230 

223 PRINT"Vo* de»ir* *ont de* ordr* V CO 10238 

224 PRINT"Quell* **t votre refluete T "GGTO230 
223 PRiHT"Je feral* ce 4ut vou* direz" -GGTO230 




230 PRINT' INPUTZ* 
240 IFZ»«"S"ANDC»10THEHGOTO600 
242 IFZ»»"E"*NDC»14THENGGTO708 
250 IFZ»< >"N"THENG0TG255 

252 IFNO-eTHENPRINr'IMPOSSIBLE" COTO230 

253 NO-0 ' OU-0 ■ ES-0 ■ su-e ■ n»e 

254 GQT0IMB*NCC) 

255 IF2»'->"S"THENCOTO2b0 
257 IFSU-0THENPRINT , IMPOSSIBLE"'COTO238 
259 NO-8 0U«S ES-0 3U-0M-0 

259 GOTO1000*StC> 

260 IF2i<^"E"THENG0T0278 

262 IFES-BTHENPRINT"IMPOSsISLE" C0T0238 

263 NO-8 OU-0 ES=0 SU«0 M«0 

264 GOTOI808*Ei C i 
270 IFZ$O"O"THEHGOTG2B0 

272 IFOU»8THENPRINT"IMPOSSIBLE"'GOTO230 

273 OU-0ES-0 S<J«0'M"8 

274 GOTO1080*O<C^ 
280 M»0 
388 IFZi-MNSPECTER «.ENT0UR'"THENM-I 

301 IFZ*="REGARDER LMMPE ,, THENn=2 

302 IF2*="REGHRDER CLOUS" THENM-3 

303 IF^S-'^REGHRt-ER PHPI£R"THENM"4 

304 IFZS^'REGfiftDER l : iFFICHE"THENM=5 

305 I^ZS^'^EGHRDER HftCHE' , THENM"6 

306 IFZ*-"REGflRDER H0MME"THENM=7 

307 IFZ»-"REGHRC'ER JUURNHL" IHENM-B 
30B IFZ«="REGtiRDER MAISQN' , THENM=9 
303 IFZ*«"REGFlRDER GflRDIEN^THENM-ie 

310 IFZ«^"REGRR[>ER HRSRE'THENM^l 1 

311 IFZ^'REGflRDER MUR M THENM*12 

312 IFZ^'REGfiRDER BHNUUE"THENM-13 
313IFZ»-"REGflRDER LEVIER"THENM=14 

314 IFZi-'^EGFlROER MfiRTEFiU , 'THENM»15 

315 IFZt-"REGflRDER P1ST0LET"THENM»16 

316 IFZ**"REGMRDER CHHRB0N"THENM-17 

317 IFZ»-"PRENDRE LftMPE"THENM»l& 

318 IFZi-"PRENDRE CL0(JS"THENM-13 

319 I F2i"" PRENDRE HRCHE"1HENM»28 
328 IFZ»-"PREN(JRE ECH[XLE ,: THENM-21 

321 IFZi""PRENDRE TRESOR" THENM-22 

322 IF2»-"PRENDRE MHKTEWJ"THENM-23 

323 IFZ»-"PRENDRE CHftRB0N"THENM-24 

324 IFZ«» , 'LfiISSER LHI1PE , 'THENM-25 

325 IFZ«-"LFIISSER CLOUS" THENM-26 

326 IFZ«="LAISSER HRCHE"THENM-27 

327 IFZ«-"LHISSER ECHELLE " THENM-28 

328 IFZt-"LFlISSER TRESOR" THENM- 29 

329 IFZ«="LHISSER MMRTEftU"THENM-30 

330 IFZ*-"LMISSER CHflRBON " THENM-3 1 

331 IFZ»="HLLUMER LRMPE"THENM»32 

332 IFZ«- M LIR PFiPIER"THENM-33 
933 -IF2»-"LIRE HFFIOi£"TMEhtfl»34 

334 IFZ«-"PHRLER HOMME " THENM* 35 

335 IFZ1*"LIRE JOURNAL "THENM -36 

336 IFZ«-"ENTRER MAIS0N"THENM-37 

337 IFZ«-"LIRE L1VRE"THENM-3B 
336 IF2»="PHYER CHRDIEN" THENM-39 

339 IFZ»" M TUER GARDIEN"THENM-40 

340 IFZ«-"ENTRER CRVERNE"THENM=41 

341 IFZ^'COUPER flRBRE"THENM«42 

342 IFZ»-' , FR1RE ECHELLE" THENM-43 

343 IFZ»--P0SER ECHELLE" THENM-44 

344 IFZ^-'^VOLER BHNQUE' , THENM=45 

345 IFZ«-"ENTRER BANtlUE " T HENfl-46 

346 IFZ»"' , HCTIONNER LEVIES" THENM-4? 

347 IFZ«-"M0NTER ECHELLE" THENM=4S 

348 IFZ««"REGHRDER CHEMINEE"THENM=43 

349 IFZi-'UNVENTAIRE'THENSB© 

350 IFIK.-0THEN40S 

380 GOTOSS^INT'.RNC" 1 j*5^ 

351 PRINT" Je ne cowprends P**"GOJu23« 

382 PRINT "Veui llez repeter" 'GOTO230 

383 PRINT"Faites attention quand vou* t»Pez" G0T0238 

384 PRINT"Mai* qu'e*t-ce iu* eel* veut dire "'"■GQTD230 

385 PRINT "Qij, e*t-ce iu« vou* voulez en faire ?"'GOTO230 
400 GOTO4B0+C 

481 GOTO30008*wn.' 

402 GOTO38000+B- n .■ 

403 GOTO30800+C'. M i 

404 GOTO3BBB0*D',M' 

13 




405 COTO30000+F< M :> 

406 GOTO3B008+G'- ft i 

407 GOTD30000*Hl M i 

408 GOTG30000+UM^ 
489 GuTG30B0B*Ji n j 

410 GOTO38000»KaMj 

411 GOTO30000+H M ; 

412 GOTO300B0+MI M ) 

413 GOTO30000+PV M / 

414 GOTO30008+O( M ; 

415 GOT030806*RiM; 

416 GOTO30000-U n > 
41 ■ IOTO30000+U M 
437 REM 

498 REM ANNEXES ■ 

499 REM 

588 FORI*ITO10PRINT 
502 MUSIC1.INT'RNDi.1j*2;+4.1NKRNCk1>*11>*1,6 
504 WAITINTiRNDtl J*20j+10 

586 NEXT 

508 MUS1C1, 1,1,0 

510 RETURN 

600 IFO=>0THEN3B016 

610 PRINT'PRINT'Le Sardien etant d' accord Pour mt 

l*l*»er p***er j entre dan* 1»"; 

615 NO-0 OU-8 ' ES-0 ; SU-0 ' M=0 

e 

620 PRINT" cavern" GOTO14080 

708 IFP-0THEN30016 

705 NO»0 ' OU«0 ■ ES=0 i SU*0 ' M-0 

710 PRINT'PRINT"Je P«»»e dan* ta Piece voi*lne" 'GO1O15800 

808 IFA-0ANDH=8rHENPRINT"Je n'ai rien"^PRINT'GOT022e 

805 PRINT'PRINT'-J'ai:" 

810 IFW-1ANDT»8THENPRINT"-Une lamPe eteinte" 

315 IFW»1ANDT=1THENPRINT"-Une lampe allumee" 

828 IFR-1THENPRINT"-De* clou*" 

825 IFS-1THENPRINT"-Une hache" 

838 IFK^ITHENPRINT'-Un* echelle" 

835 IFE=1THENPRINT"-Le TRESOR" 

840 IFF«1THENPRINT"-Un (narteau" 

642 IFD-1THENPR1NT"-I>» l«r»ent" 

845 IFG=1THENPRINT"-Un rnorceau de charbon" 

847 IFH-1THENPRINT"-Un Putolet" 

850 PRINT^GOTO220 

997 RET1 

33B REM DESCRIPTIONS 

333 REM 

1800 C=l 

1085 IFE=-ITHEN48008 

1010 GOSUB300 

1820 PRINT" Je *ui* dan* une impasse. " 

1830 IFU-1THEN12B0 

1840 PRINT"Par terre.Je vol* une lamPe" 

1200 G0T0288 

1399 REM 

2088 C-2 

2818 G0SUB588 

2028 PRINT"J* MUl dan* une rue." 

2038 IFR-1THEN2200 

2848 PRINT"Par terre tralnent de* clou*." 

2288 GOT 0208 

2999 REM 

3888 C=3 

3010 GOSUB500 

3020 PRINT" Je *ui* d*n» une 9r*nde rue." 

3048 PRINT"Un PaPier jonche Par terre." 

3200 GQTO200 

3999 REM 

4000 C=4 
4010 GOSUB500 

4020 PRINT"Je *ut» dan* une rue." 

4030 PRINT iPRINT"J» v&i» une aGfifltM sur un mun" 

4200 GOTO206 

4399 REM 

5000 C-5 

5010 GOSUB508 

S02B PRINT" Je *ui* dans une rue." 

5630 PRINTPRINT"ll » a une at t ich* sur un ttur" 

504B IFS-1THEN5206 

5050 PRINT PRINT "Par terre *e trouve une hache" 

5200 GOTO200 

5339 REM 



Suite page 14 




Ce programme d'action rapide, qui fonctionne sur toute 

HP41,munied'unmoduleTIMEetXFUNCTIONS,consiste 

a parcourir un circuit d'une longueur donnee, le plus vite 

possible. 

II autorise un nombre maximum de trois pilotes sur le 

meme parcours, et possede accelerateur, frein, debraya- 

ge ainsi que 5 vitesses. 

DidierVALLET 

Mise en oeuvre du programme : 

- Les quelques pas synthetiques de ce programme sont tous rempla- 
cables. 
Ainsi, les pas du type : E3signifient 1E3. le gain etant umquement un 
octet. 
Quant au son. il peut bien entendu etre supprime, avec les pas 65, 69, 
217 et 223. 

Les tons obtenus synthetiquement sont dans I'ordre : 
SIN ; X - Y ? ; 10" X. STO 05;X*Y?;10-X;X-Y?; HMS 7 ; HMS + ; 
X - Y ? ; 10' X , LOG ; STO 05 ; X >0 ? ; RCL 15 : RCL 13 ; 1/X ; X <0 ?. 
et realises ainsi a I'aide du byte grapper (XROM 28.63) 
en mode programme : RCL IND 31 

nom fonction 

BST 

BST 

XRON 28.63 

B 

SST 

line fois le programme entre, il est possible de jouer.. 

• Codes des touches 

|7| Pedale de debrayage a actionner avant changement de Vitesse 

|8| Frein. Le rapport utilise permettant un freinage plus ou moins effi- 

cace. 
[9] Accelerateur. 
[e+| 1'° Vitesse. 

1 1/X | 2 B Vitesse pour V >S> km/h. 
|/X| 3" vitesse pour V > 66 km/h. 
| LOG 4" Vitesse pour V > 106 km/h. 
[LN] 5' Vitesse pour V> 155 km/h "^ 




2149 8S.12 

8HLBL -Fl- 
82 CLX 

63 "SON ? O.N- 

64 SJV'IEIi 

65 GETKEY 

66 X=6? 

6? GTO -FI- 
BS 41 
89 X=Y> 
16 CF 26 

11 1 

12 + 

13 x=v> 

14 SF 26 

15 ■ GEHERBTIOH 

16 BVIEU 

17 CLRG 

18 E 

19 STO 82 
26 STO 83 

21 5.61281 

22 STO 64 

23 STO 23 

24 TINE 

25 HR 

26 FRC 

27 STO 88 
28»LBL 58 
29 RCL 66 
36 PI 

31 * 

32 8 

33 YtX 

34 FRC 

35 sto ee 

36 86 

37 » 

38 STO IND 64 

39 ISC 64 
46 GTO 56 



41 -DISTANCE ?" 

42 PRONPT 

43 E3 

44 * 

45 STO 22 

46 "N. PILOTE ?' 

47 PRONPT 

48 E3 

49 / 
58 E 

51 * 

52 STO 21 
53«LBL 44 

54 FIX 8 

55 RCL 22 

56 STO 15 

57 CF 65 

58 E 

59 STO 14 
68 El 

61 STO 13 

62 "PILOTE N. " 

63 BRCL 21 

64 BVIEU 

65 RCL b 

66 TONE 9 

67 TONE t 

68 TONE 7 

69 XO t> 
76 PSE 

71 RCL 88 

72 STO 26 

73 RCL 23 

74 STO 17 

75 CF 2? 

76 CLX 

77 SETSU 
78«LBL 82 
79 -PRET ■>■ 
88 BVIEU 

81 CLB 



82 GETKEY 

83 X=8? 

84 CTO 82 

85 RUNSU 

86 GTO IND X 
871LBL 99 

88 XEO 88 

89 GETKEY 
9B X»8' 

91 CTO INB X 

92 GTO 99 
93«LBL 54 

94 RCL 14 

95 1.7 

96 YtX 

97 El 

98 * 

99 RCL 13 
IBB ur> 
181 GTO 68 

162 1/X 

163 RCL 14 

184 « 

185 486 
1B6 * 

ier st* 13 

188 GTO 99 
189«LBL 52 
118 5 

111 •£• 

112 MIEN 

113 CLB 

114 GETKEY 

115 18 

116 NOD 

117 X>Y' 

118 GTO 52 

119 STO 14 
126 GTO 99 
121«LBL 53 
122 RCL 14 



123 CHS 

124 EtX 

125 5 

126 « 

127 RCL 13 

128 » 

129 ST- 13 
138 RCL 13 

131 11 

132 X>Y' 

133 STO 13 

134 CTO 99 
135»LBL 8£ 

136 FS' 85 

137 GTO 55 

138 688 

139 STO 19 
148 RCL 28 

141 PI 

142 * 

143 8 

144 YtX 

145 FRC 

146 STO 28 

147 4 

148 * 

149 INT 
158 E 

151 X=Y? 

152 GTO 55 

153 BRCL 15 

154 BSTO 16 
155«LBL 77 

156 RCL 13 

157 ST- 15 

158 RCL 15 

159 X<8? 
166 GTO 81 

161 CLB 

162 BRCL 14 

163 -F " 



164 BRCL 13 

165 -F " 
186 BRCL 16 

167 BVIEU 

168 CLB 

169 CLX 
178 RTN 
17ULBL 55 

172 SF 85 

173 RCL 19 

174 RCL 13 

175 - 

176 STO 19 

177 X<8? 

178 GTO 66 

179 BRCL 19 
186 -r-V 

181 BRCL INC 17 

182 F1ST0 16 

183 GTO 77 
184»LBL 66 

185 RCL IND 17 

186 RCL 13 

187 % 

188 2 

189 » 
198 E2 

191 - 

192 CHS 

193 X<8? 

194 GTO 65 

195 BRCL X 

196 -Fr 

197 BSTO 16 

198 CF 85 

199 ISC 17 
288 CTO 77 

281 RCL 23 

282 STO 17 

283 CTO 77 
284»LBL 86 



265 -CBLE- 

286 BVIEU 

287 PSE 

288 -DENBRREUR- 
269 BVIEU 

216 PSE 

211 CLB 

212 GTO 53 
213«LBL 81 

214 STOPSU 

215 ■ BRRIYEE- 

216 BVIEU 
21? RCL b 

218 TONE 3 

219 TONE 8 
228 TONE 7 

221 TONE t 

222 TONE 3 

223 X<> b 

224 PSE 

225 FIX 6 

226 RCLSH 

227 V1EU X 

228 RCL 21 

229 E8 
238 / 

231 * 

232 STO IND 2! 

233 ISG 21 

234 GTO 44 
235«L6L 83 

236 TONE 3 

237 TONE t 

238 TONE ? 

239 TONE 6 
248 TONE 3 

241 TONE 8 

242 TONE 7 

243 TONE 5 

244 RCL 81 

245 RCL 62 



246 X<=Y' 

247 XOY 

248 RCL 83 

249 X<=Y? 
258 XOY 

251 RDH 

252 X<=Y? 

253 XOY 

254 Rt 

255 FIX 8 

256 -1 • 

257 BRCL 2 

258 PROMPT 

259 -2 - 
268 BRCL Y 

261 PRONPT 

262 "3 " 

263 BRCL X 

264 PRONPT 
265«LBL 85 

266 STOPSU 

267 -ACCIDENT.. 

268 BVIEU 

269 TONE 6 
278 TONE 3 

271 PSE 

272 RCL 21 

273 E8 

274 / 

275 E 

276 * 

277 STO IND 21 

278 ISG 21 

279 GTO 44 
288 GTO 83 

231 .END. I 



Ytf> 



AA 
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* KRYPTON 

-,.»# C-b 

6316 GQSUB508 

6028 PRINT" Jt suis dans une rut." 

6030 PRINT PRINT"J* vois un homme assis a 1'ortbre." 

6200 GOT0286 

6933 RM 



7010 GUSUB506 

7620 PRINT"J* suis dans unt rue." 

7030 PRINT PRINT"Il a a un Journal sur un banc" 

7200 GOT 0266 

7399 REM 

8000 0-6 

8016 GCISUB500 

8026 PRINT'Je suis dans une rue." 

8030 PRINT;PftINT"Jt n,e trouve devant n* roaison qui 

seroble etre abandonnee." 

8200 GOTCJ200 

8939 REM 

9600 C-9 

9010 G0SUB586 

9826 PRINT' j« mi* dans un* rut." 



s'enfuit.il semble 



9036 IFY-1THEN3168 

9640 PRINT;pRINT"Au loin <<uel 

tenir suetlu* chose dan« ses "; 

9050 PRINT"main»." 

9060 GOTO9280 

9100 PRINT PRINT"Tout est calme. " 

9260 GQT0286 

9999 REM 

16668 Oie 

0010 GOSUB508 

10020 PRINT"J* suis devant I'mtTH d'une cavern* 
"'PRINT-PRINT"rUit elle a un 9*rdim. " 

10200 C0T0268 

16999 REM 

11660 Oil 

11010 GOSU8S60 

11026 PRINT"Je mil* dan* unt for «S. " 'PRINT PRINT 
"II « « beaucouP d' arbres et il m-*%V 

11030 PRINT-difficile d'avancer. " 'PRINT PRINT 
"J'al e-n neme tenP» 1' impression cf'etre" 



-ci est tota 



i bailment aPPel te 



o& A 



11046 PRINT"observe;et cela me met mal a 1'aise" 
11200 GOTO200 

11999 REM 

12000 012 
18810 GG5UB500 

12020 PRINT"Je me trouve dans un etr*n9e hangar 
lement wide et" 

12030 PRINT"il si a mur en Plein wilitu m'ewl-echantd' al ler dans le f 

ond . " 

12288 GOTO200 

12999 REM 

13000 C-13 
13010 GOSUB506 

13020 PR I NT "J* suis •:!»■-•* un* rue. 1 
13030 PRINT 'PRINT"Je suls devant t 
13200 GOTO200 

1 3999 REM 

14000 C«14 
14010 GOSUB500 

14020 PRINT" II fait sombre et jb distlnQue mal lescontours. 
14260 GOTO206 

14999 REM 

15000 C-15 
15018 G0SUB566 
15020 IFT-1THEN15646 

15836 PRINT"Il fait T»ir et Je ne voii 
15635 GOTO15260 

15640 PRINT'-Avec la lamfe il fait un i 
vez m* demander" 

15050 PRINT"d'msPecter les alentours" 
15200 GOTO200 
15999 REM- 
16688 C-16 
16010 GOSUB500 

16020 PRINT'Je suis dans une rue. 1 
16030 IFY-1THEN16108 
16040 Y-l'PRINT'PRINT"Un homme. le 
ers vous en "i 

16050 PRINT"courant" PRINT" II vous donTNT un Putoli 
ssi vite nuiI ", 

16060 PR I NT "est vtlH. ■ 'H"l GOTO16206 
16186 PRlNT"Tout est calme." 
16200 GOTO200 

1 6999 REM 

IT000 C-17 

17018 GQSUB500 

17620 PRINT-J* suls sur une Petite Place." 

14 



lair et vous pou 




que tout a l'heure ( 



17030 IFG-1THEN17200 
7040 PRINT 'PRINT"Par tern 
de charbon" 
17200 G0T0268 
19*9? REM 

19998 REM OHTfl 

19939 REM 

20060 OhTM), 0,3, 0,0,3, 6,6, 
10,0,3,8,11.0 ,4,8,8,7 
2000S C)mTH5, 0,13,0,6,6,0,1 
16,0,0,0,6,0,0 ,14 
20810 DHTFI12, 17.8,6, 13,6,1 
20106 [)iiTN9b,96,96,96-96, 
20185 0NTH6,8,8,8,8,S,8,( 
26110 MTHlSi 10. MS. 12, 12, 
26115 DhTh16,16.14,16,16. 
20120 0MTMl6,16.16,18,ie. 
28125 DflTH22,22,22,22,20. 
20130 DftTfll6,16-16,16,16. 
20135 DHThl6,16,16,16,16. 
20146 DPlTftl6,16,16,16,16. 
26145 UftTfll6,16,16,16,16. 
20150 DRTR16,16,16,16,16. 
20155 0mTm16,16,16,16,16. 
20168 [»MTH16,16,16, 16, 16. 
28165 DflTfll6,16,16,16,16. 
20170 DflTR16,16,16,16,16. 
28175 DP>TPil6,16,16,16.16. 
20100 CRTh16,16,16,16,16. 
20105 DmTm36, 16,16, 16, 16. 
20190 DATh16,36,16,16,16 
20195 DHTA16,16,16,16,36. 
20208 C>flTR16,16,16,16,16. 
26265 DnlHlfc.lb.lt.lk, U. 
26210 DmTm16-16,16,16, 16 
26215 DMTR16, 16, 16.16- 16. 
20220 DRTR46.46,46.46,46. 
20225 CJNTR46,46,46,46,46. 
20230 0NTH46,46,46,46,46. 
20235 UBTR46. 46, 46.46,46. 
20248 DRTH46, 46. 46,46,46, 
20243 DRTR46,46,46,46,46, 
20258 L'RTR46,46,46,46,46, 

20252 DATR56.56,56.56,56. 

20253 CRTR16,16,36,16.16, 
20266 0RTR16, 16, 16,66.62, 



1, 0,7, 2, 0, 5, 8, 6, 0,6, 9, 4, 2, t 



1,0,16,0,9,0,17,0, 



96,36,96,96,36,96,96, 

1,8,8,8,8,8,8,8,8,8 

12,12,12,12,12.12.12. 

16.16,16,16,16,16,16. 

16, 16,16, 16, 16, 16, 16. 

22,22,22,22,22,22,22. 

24,16,16.16,16, 16,16. 

16,26,16,16,16.16,16 

16,16,28,16,16,16,16. 

16.16,16,16,30.16,16 

16,16,16,16,16,32,16 

16,16,16,16,16,16.34,: 

16,16,16,16,16,16,16. 

16,16,16,16,16,16,16. 

16,16,16,16,16,16,16. 

16,16,16,16,16.16,16. 

16,16,16,16,16,16,16. 

16,16.16,16.16.16,16. 

16.16,16,16,16, 16,16 

16,16,16,16,16,16.16 

16.16,16,16,16,36,16 

16.16.16, 16, 16.16,36. 

16.16,16,16,6,16,16,: 

16,16,16,16,16,16,16 

46,46,46,46,46,46,46 

46,46,46,46,46.46,46: 

46,46,46,46,46,46,46. 

46,46.46,46,46,46,46, 

46,46,46.46,46.46,46, 

46 , 46 , 46 , 46 , 46 , 46 , 46 , 

46.46,46,46,46,46,46, 
36,56,36,56.56,36,36. 
16,16,16,16,16,16,16. 
16,16.16.16.16,16.16. 



96,0,2,4,96 

12,12.12,12.12 

16,16,16,16,16 

16,16,16,16.16 

22,22.22,22,22 

16,16.16,80,16 

16,16,16,16.16 

16,16,16,16,16 

16,16,16,16,16 

16,16,16,16.16 

6,16,16.16,16 

18.16,16,16,16 

16,14,16,16,16 

16,16,14,16,16 

16.16.16,14, 16 

16.16.16,16,14 

16,16,16,16,16 

16,16,16,16,16 

16,16,16,16,16 

16,16,16,16,16 

16.16,li.l*,16 

6,16,36.16,16 

16.16,16,16,36 

46,46,46,46.46 

46,46,46,46,46 

46,46,46,46,46 

46,46.46,46,46 

46.46,46,46,46 

46.46.46.46,46 

46,46,46.46,46 

36.56.56,56.36 

16,16.16,16.16 

16,16.16,16,16 
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MORPION 



Un MORPION de 10 cases sur 10, ou il faut affronter votre 
X-07 ! A vos KDB ! 

Cyrille DANES 

MODE D'EMPLOI 

- Lancez le programme : RUN. 

- Le programme demande : "Voulez-vous commencer ?" appuyez sur 
OouN. 

- Le jeu se deroule sur une grille de 10 x 10 : 

0123456789 

1 
2 

3 X 

4 

5 

6 

7 

8 

9 

On rentre le coup en decimal, ordonnee-abscisse • pour jouer a I'en- 

droit oii se situe la croix : repondre 32 [RETURN] a la question "votre 

coup' 

Le programme "reflechit" de 30 (au debut) a 15 secondes (vers la fin). 



?2B F 



MNT"Uou 



?" :G0SUB 



?30 IFR«="O"THENGOTO??0 
740 REn Boucla 

758 GosuBieee 

760 IFFO0THEN600 

7?0 GO5UB2B0B 

7B0 IFF-0THEN740 

BB0 REf1 La part I* icl [lata 

830 [FF-lTHENPRINT'J'ai aojn an 1 ' ;ELSE IFF 

-- 1 IHENPRINT' Uoui avtz ,a9f> an"; 

835 IFF=?TH£NPRINT-Part it nulla aprt"; 

840 PRINTN;" coupi" 

850 RETURN 

300 RED £pi loaut du jcu 

910 PR I NT "flu rawolr" 

920 RETURN 

1000 REH Le programme Joue 

1030 FORJ=0rO99:B(JJ=0:NEXT 

1840 PRINT" J* jou«..."; 

1090 C-l :JI=0:J2=5:K1=8:K2=98:GOSUB1500 

1100 C-9:JI=4:J2=9:Kl=e.-K2=50:GOSUB150B 

1110 C=]0:J1=0:J2=9:K1=0;K2=50:GOSUB1508 

1120 C = ] I :J1=0;J2=5:KI=0:K2=5B:GOSUB158B 

1178 S=-l 

I1B8 'J -CI 

I2B0 FORJ-0TO99 

!2]8 IFfi(J)O0ORBCJJ<STHEN1230 

1228 IFB(J)>STHENC=J:S=B(.C):Q=1ELSEQ=0H1 

:]F0*RND[R)<1THENC-J 

1238 NEXT J 

124B GOSU6BB00:PRINT"an" ;C 

1258 flCCl-5 

1278 N=N*I 

128B IFN=I880R(S=BflNDN>llTMENF'2 



1 REM norp.on 10*18 

2 REM Version CANON X-07 

3 REM Cyril I* DANES 
25 G0SUB1S8 

35 GOSUB6B0 

40 GOSUB700 

45 PRINi"Uoulez-uoue Joust 

t la ?" :GOSUB90BB 

50 1FR«=-0"THEN 35 

55 GOSUB900 

95 END 

100 REM Prologue du Jeu 

105 CLS:F0R1-5T0114STEP3 
:CIRCLECI,26),2;NEXT 

106 LOCATEB.l 

110 PRINT** MORPION 

18 «" 



:C]RCLEU,5),2 



270 U[JJ=0 

280 NEXT 

298 FORJ=0TO4 

380 READUU) 

310 NEXTJ 

330 DATfl.01,.03,.5, 18, 1 

340 FORJ=5TO20STEP5 

350 READUCJ) 

368 NEXT 

3SB DATA. 1,2, 100, 1B000E 

5B0 R=0:RETURN 

600 RErt Prologue de la 

530 FORJ-0TD99 

640 A(J)=0:B(J>0 

658 NEXT 

660 N=0 

670 F-0 




298 1FSJ-U(20)THENF=1 

300 RETURN 

500 REH Exploration dee quintuplets 

520 C4'4*C 

530 F0RJ-J1TOJ2 

540 FORK=K1TOK2STEP10 

550 A=J*K:B=A.C4:£=0 

568 FORP-ATOBSTEPC:J-!«A[p) iNEXT 

588 U(?) 

590 IFO<J0THENFORP-ATOBSTEPC:B(P]-BCP)t 
0:NEXT 

1600 NEXTK, J iRETURN 
2000 REM L'ld'jut.ire jout 
2010 INPUT'Uatra coup " ;fl 
2030 lFfl<0ORA>99ORAOINTCA)THENPRINT"un 



2840 [FflCA)O0THEN PRINT'Cate dja oecupe 
. . .";:GOTO2010 
2050 fttfO-l 
2080 N=N.| 
2100 IFN=[BBTHENF=2 
2110 IFBCA)>=UC4)THENF=-1 
2200 RETURN 

8000 BEEP14,2:B£EP1B,2-BEEP22,4:BEEP22,4 
■6EEP15,8 
8100 RETURN 

90BB R«*IHKEY*UFR«>' "THEN9000 
9010 IFR*O"0"ANDR«O"N"THENPRINT"qui ou 

non ",:GOTOS000 
9028 RETURN ■ 



Fabriquez un echiquier avec ce petit programme, cela sera tout de 
meme plus simple pour suivre ('evolution du jeu de MORPION de 
Cyrille DANES. 



1234567B9 



c^ol 



10 LPRINTCHR»<ia):CLEAR500:LPRINT , -N4O,0-:LPRINT" I " 

20 F0RI-OT0-360BTEP-SO 

30 LPRINT-DO,"+STR*{I)f*,400,"+STR»(I)+",400,"+STR«(I-: 

43 LPR INT "DO, -360,0,-400,400, -400" 

SO LPR INT "H" 

60 FORI-OT0360STEPBO 

70 LPRINT-D-+STRXII+" . O, "+STR* < I ) ♦" , -400, "*STR« < I*40> - 

BO NEXT I 

90 LPRINT-D360.0, 400,0,400,-400" 

100 FOR I-20T0400STEP40 

110 LPRINT"rr»STRS(I-2O)* ,, ,20":LPRINT"P"*STR*< !I-20>/4< 

120 NEXT I 

130 FOR I— 2OTO-400STEP-40 

140 LPR INT "(1-30, ■■♦STR» { I > : LPRINT"P"+5TR» ( { 1*20) /-40> 

ISO NEXTI 

160 LPRINT"M0,-600* 

170 END 



-4O0,"+STR«(I*40l- 
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^ KRYPTON 



28.265 DhT*I6, lb, lb, lb, lb, 64, 16. Lb, 16, 16, 16, lb, 16, lb. It-, 16, lb 

20270 DRTH16, 16. 16. 16. 16. 16.66. 16, 16, 16. 16, 16, 16, 16, 16. 16. 16 

20275 L>HTfll6, 16, 16. 16, 16. 16, 16,68, 16, 16, 16, 16, 16, 16, 16. 16, 16 

20288 DHTh16. 16, 16. 16, 16, 16, 16,72, 16. 16. 16, 16, 16. 16, 16, 16, 16 

28285 OflTr.16, 16, 16. 16, 16, 16, 16, 16, 16,74, 16. 16. 16. 16, 16. 16. 16 

20298 DflTHie, 16, 16, 16, 16, 16. 16, 16, 16. 76, 16, 16, 16, 16, 16, 16, 16 

28295 DATfllS, 16, 16, 16. 16, 16, 16, 16, 16.78. 16, 16, 16. 16, 16. 16. 16 

20300 DfiTNl6. 16, 16. 16. 16, 16. 16. 16. 16, 16,82, 16, 16, 16. 16, 16, 16 

28305 &ATH16, 16, 16, 16, 16. 16, 16, 16, 16, 16.84. 16. 16. 16. 16. 16, 16 

28318 DHTM16. 16, 16. 16- 16, 16, 16, 16, 16, 16. 16.86. 16. 16. 16, 16, 16 

20315 DRTFI16. 16. 16, 16. 16, 16. 16, 16, 16, 16, 16. 16,88, 16, 16. 16, 16 

20328 DfiTfU6, 16, 16, 16. 16, 16, 16. 16, 16. 16. 16. 16.90. 16, 16. 16. 16 

28325 DrVmi6, 16, 16. 16, 16. 16, 16. 16, 16. 16, 16, 16, 16,92, 16, 16. 16 

20330 DffTfllCi 16, lb, 16, 16, 16, 16. 16, 16. 16, 16, 98, 16. 16. 16, 16, 16 



30028 PRINT'PRINT"Elle semble abandonnee" 'C0TD219 
30030 PRINT 'PRINT" II * I'air feroce" G0T0219 
30032 PRINT'PRINT"Il n'est Pas tres «rand" 'G0T0219 
30034 PRINT, PRINT" 1 1 est IUM «t haut" 'G0TQ219 
30036 IFH+1-5THEN30816 



28335 DHTRlb,16,16. 16,16.16.16.94,16.16,16.16.16. 

29997 REM 

29998 REM REPQNSES 

23999 REM 

38800 PRINT'PRINr'flu fond, je vols un levier" 
>G0T0219 

30002 IFT=0THEN30016 

30003 GOT 038 108 
30804 I FY- 1 THEN 16000 

30005 PRINT PRINT"Tout est redevenu calne..." 
'G0T0219 

30006 IFT^BTHENPRINT'PRINT'Elle est eteinte" 
'GOT0219 
30807 PRINT, PRINT"Elle est allumee" G0T0219 

30008 IFW=lTHENj0806 

30009 GOTO30016 

30010 PRINT "I Is sont Pointus.",G0Tu21S 

30012 IFR-1THEN30010 

30013 GOTO30016 

38014 PRINT -PRINT" II • 1'tll* normal" 'GOT0219 

30016 PRINT ^PR1NT"0SSIBLE IMPOSSBLE IMPOSSIBLE 

IMP0-GCJT0219 

38818 PRINT 'PRINT"Elle a I'air normale" G0T0219 

38028 PRINT-Elle e.t tres tranchante" '&0T0219 

30022 IFS-1THEN30020 

30023 GOTO3B016 

30824 PRINT" II est 9r*nd. blond, mil n'a Pam de 

ch«us*uj-e»' , oires ■ i C0T0219 

38826 PRINT, PRINT" II date de U veiUe" G0T0219 



>^° 



3003? IFC-1THENW-1XOTO30045 
30038 IFC-2THENR-1GQT03CS.5 
38039 IFC=5THEN3-1,G0T038845 

30848 IFC»11MNCN-=1TH£NK»1:&OT038845 
30841 IFC-12ANOO-lTHENE-l:GOTO30e4S 
30042 IFC-15HN0T-1THENF-1 GOT038845 

30843 IFC-17THENG-1GOTO30045 

30844 GOO30016 

30045 R-fl+l-PRINT:PRINT"O.K.et maintenant" .G0TO230 

30046 IFH=0THEN38«lb 

30047 IFM-25THENW»0 T=0 

30048 IFM"26THENR=0 

30849 IFI1=2?THENS«8 
6, 16. 16, 16 30050 IFM»28THENK=0 

30051 IFM=>2S-THENE=0 

38052 IFM=30THENF*e 

38853 IFM=31THENG=0 
38054 H-fl-l 

30055 PRINT' PRINT"O.K.et Mintenant" 'G0T0238 
30856 IFW-1THENT-1'GOTO30055 

30057 GOTO30016 

30058 PRINTPRINT"J'arnve a lirt'U tr«or est tin diamanf'GO 
T0219 

30060 PRINT PRINT"Le sheriff vient dedetnissloner" 'G0T0219 

30062 PRINT PPINT"Ur.e annonce sPecialePour falre one echelle.il 
faut du boia. une "; 

30063 F'RINF'hache et des clous. " G0T0219 

30064 PRINT, PRINT"I1 we rePondi ■■ 'Dans la caverne se trouve 4uel 
4ue chose d'utlle'" 

30865 G0T0219 

30066 PRINT PRINT"J's lis, La banque arret* de faire des prets.nais 
vous Pouvez tou.ou", 

30067 PRINT'rs » venir.Elle est au sud-est de la ville" G0T0219 

30068 IFC-8THENL-1GOTO30078 

30069 GOTQ30816 

30070 PRINT'PRINT"Je suis dans la naison.Elle est bien abando 
nnee.Je me trouve". 

30071 PRINT" dans une Piece vide avec une cheminee et un Uvre d 
essus"G0T0219 

30072 IFL-0THEN300I6 

30073 PRINT, PRINT"Le tltre'La Puissance de L'VSMA' " ; G0TO219 

30074 IF0"1THEN0*1 0*8' PRINT , PRINT"Le 9ardien veut bien ne taisser 

15 



entrer".G0T0219 

30875 PRINTPRINT"N'a»ant rien Pour, 11 est furieux et metue" GOTO30 

077 

38876 PRINT'PRINT"OhM ! Quelle erreur.Le 9ardien rePU- lue et me t 

ue" 

30077 PRINT, INPUT"Une autre Parti* <0'N)">fi«' IFH«-"0"THEN11ELSEEND 

30878 PRINT PRINT-'TaPez S .car I'entree est au sud" 'GOT0219 

38080 PRINT'PRINT"Ouel r>ow*e?" ,G0T0219 

30082 IFS-0THEN38016 

30083 PRINT' PRINT"... TIMBER I ! !" Z-l -G0T0219 

30084 IFR«lMNDS»lflNDZ-lTHENN"l ■ R-0 ' COT 030055 

30085 GOTO30016 

30886 IFK-1THENB-1 'PRINT"VolU.elle est bien Posee.ie Peux » *ont 

•r"XOT0219 

38887 GOTO30816 

30888 IFH-lflNDX"lTHENO»lPRINT"Parf*it,voici I'arSent" .G0T0219 

38089 GOTO30016 

38090 X-1GOTO30055 

30092 PRINT, PRINT"Un bruit sourd.un Passa9e ver* I'est" 'P-l ^G0TO219 
38094 PRINT, IFL=lTHENPRINT"EUe est eteinte" 'GOT0219 
30096 GOTO 1000*0 

38898 IFB=lTHENQ-l,PRINTPRINT"Je monte etje vois le TRESOR 

"G0T0219 

30099 GOTO38016 

30108 IFF=ITHENPRINTPRINT"Je ne remar<lu* rien de Particulier" GOTO 

219 

30101 PRINT, PRINT"Il y a un warteau 4ui traine dans un coin"»G0T02 

19 

39997 REM 

39938 REM RETOUR 

39939 REM 
40000 CLS 

40018 PRINT"Ca s est !!! C/est termine! II " 'PRINT i PRINT 

40020 PRINT"Le tresor a ete trouve et vous I'avez ramene * votre Po 

int de depart. " 

40030 PRINT, PRIHTPRINT'Je ne vous Propose Pas une autre Parti 

e, le Jeu n'anant "; 

40040 PRINT"4u'une version;" 

40850 PRINTPRINT"Mais si vous n'avez Pas troP cherche a"i 

40060 PRINT"comPrer.dre le Pro9ramne en le taPant." 

40070 PRINT"vous avez du Passer quellues bons moments." 

40080 PRINT'PRINF'Mais n'essavez Plus de retenir votre" 

48090 PRINT" joie,allez raconter Partout 4ue vous avez trouve le V 

esor de" 

40100 PR1NT'PRINT,PRINTCHR»(17> 

40110 PRINTCHR»<4>;CHRfX27J;"N K R Y P T N" yCHRtK «WCHWK 

■ 



LE LOGICIEL 
DE LA SEMAINE 

Le vampire fou sur APPLE 




Vampire, n'en doutons pas, mais 
fou, c'est une autre histoire. 
En ce qui nous concerne. il nous a 
semble plutdt malin. plein d'hu- 
mour et, bien entendu, de sang 
Demoniaque, somme toute. 
Realise et commercialise par 
CIEL BLEU, ce logiciel de jeu 
(100%tra;icais:ecrit par J.L LE 



BRETON. c'est vous dire !), vous 
fera frissonner de la fete aux 
pieds. 

Un chateau sinistra construit 
comme un labyrinthe. un vampire 
omnipresent confortablement 
installe dans son cercueil, mais 
toujours a vos trousses. des ou- 
bliettes bo n dees de prisonniers : 
bref. une ambiance digne des 
DRACULA et autres BAL DES 
VAMPIRES. 

Vos deux atouts majeurs seront 
votre sagacite et votre curiosite, 
vos armes, le vocabulaire que lor 
dinateur comprend et que vous 
saurez decouvrir. 
Le but du jeu est dese rendre mai- 
tre du chateau en tuant le vampire 
au moyen d'une formule magique 
dont les mots vous seront devoi- 



les au cours de votre penpte 
Les elements de la solution, dis- 
perses dans les salles du chateau, 
vous seront donnes si vous reus- 
sissez diverses epreuves au si 
vous etes perspicace. 
Les effets sonores atnsj qu'un bon 
graphtsme font de ce logiciel un 
jeu vivant (ou plutot mort-vi- 
vant..) et drdle, a pratiquer a plu- 
sieurs et de jour pour les plus sen 
sibles. 

En guise de cadeau de debut 
d'annee, HEBDOGICIEL vous in- 
dique que le septieme mot de la 
formule magique commence par 
un C et se termine par un X. 
Autre chose encore, les editions 
CIEL BLEU organisent un con- 
cours ayant pour theme LE VAM- 
PIRE FOU. Renseignez-vous ! ■ 



LOGO : un langage dynamique 




LOGO, outre le graphisme TOR- 
TUE, possede un atout indenia- 
ble : c'est un langage procedural 
et extensible. 

En fait, tout se passe comme si 
Ton pouvait enrichir le vocabulai- 
re de base de LOGO. 
C'est unesituation surprenante et 
ohginale : I'utilisateur apprend a 
I'ordinateur a devenir plus puis- 
sant, plus sophistique. 
Les primitifs de LOGO vont per- 
mettre de construire des proce- 
dures que Ton pourra considerer, 
lors d'une session de travail, com- 
me des primitifs a part entiere du 
langage. 

Lavantage evident de cette ap- 
proche est de lai-,ser le soin au 
programmeur de pursonnaliser le 
langage et, par-la meme, de le 
simplifier. 



Les programmes seront done 
concus a la facon dun puzzle, 
procedure par procedure. 
Donnons-nous comme objectif 
de dessiner une fleur dans un pot 
(pourquoi pas ?). 
Nous pouvons decomposer le 
probleme en differentes etapes : 

- dessiner la fleur, 

- dessiner la tige, 

- dessiner le pot. 

Le dessin de la fleur peut etre rea- 
lise en creant chacun des pet ales. 
Pour simplifier, dessinons une 
fleur a trois petales, dont chacun 
des petales est un triangle 
II suffit done de construire d'abord 
une procedure tracant un trian- 
gle, puis de repeter trois fois cette 
procedure. 

Remarque : POUR est le primitif 
reserve pour la creation d'une 
procedure dans le LOGO que 
nous utilisons. 

POUR TRIANGLE 
AVANCE 60 
DROITE 120 
AVANCE 60 
DROITE 120 
AVANCE 60 
FIN 

Dessinons la fleur, en utilisant le 
triangle. 

POUR FLEUR 
TRIANGLE 
TRIANGLE 
TRIANGLE 



Puis la tige et le pot 

POUR TIGE 
CENTRE 
GAUCHE 155 
AVANCE 60 
FIN 

POUR POT 
GAUCHE 115 
RECULE 30 
TRIANGLE 
FIN 



FIN 



Voila, il ne nous reste plus qua 
creer la procedure JOLIEFLEUR : 

POUR JOLIEFLEUR 

FLEUR 

TIGE 

POT 

FIN 

Maintenant, JOLIEFLEUR est 
considere comme un primitif el 
peut etre utilise dans une proce- 
dure au meme titre que AVANCE 
ou DROITE 

Get example simpliste ne doit pas 
f aire oublierque LOGO est un lan- 
gage puissant : il est possible de 
parametrer une procedure, e'est- 
a-dire de travaitler avec des varia- 
bles. 

L'exemple suivant illustre ('utilisa- 
tion de parametre ; 

POUR CADRE :C 
AVANCE :C 
DROITE 90 
AVANCE :C 
DROITE 90 
AVANCE :C 



DROITE 90 

AVANCE :C 
FIN 

Cette procedure est utilises de la 
facon suivante : 

CARRE 10 Dessine un carre de 
cote 10 pas. 

CARRE 40 Dessine un carre de 
cote 40 pas. 

En dehors de cet aspect particu- 
lier lie a la construction des pro- 
grammes. LOGO dispose, com- 
me tout langage digne de ce nom, 
de primitifs efficaces pour une 
bonne programmation : 

REPETE (boucle) 
SI ALORS (test) 
SINON 
TESTE 
SIVRA1 (test) 
SIFAUX 

etc. ■ 




PETITES ANNONCES 
GRATUITES 



VENDS COMMODORE 64 SE- 
CAM (NOV 83 utilisation environ 
40M) + Lecteurde cassette + PL- 
RITEL + Joystick + manuel + la 
decouverte du COMMODORE + 
3 cassettes de jeu. Le tout 3.300 F. 
MATENCIO Robert 64 rue de la 
Rochefoucauld 75009 PARIS. Tel. 
874.84.71 ou 747.12.40. 

VENDS TRS 80 MOD 1 NIV 2. 16K 
COMPLET 3000 F Imprimante 

GP 100 + cable interface 2.000 F 
interface MDX 2 doubleur + lec- 
teur DD + New Dos 80 2.500 F 
Nombreux livres sur TRS 80. Rl- 
CHAR A.. 49 rue A. Briand 42170 
SAINT JUST Tel. (77) 36.47.41. 

ORIC 1 H 8 K echange cassette KI- 
KE KENKOI avec bon du concours 
contre DEPENSES MENAGE ou 
autre utilitaire. EHRHARDT Ber- 
nard 60 rue Vayruige 54000 
NANCY Tel (8)33514.82. 

ACHETE Tl 99/4A module Basic 
etendu et vends moitie prix pour 
Victor LAMBDA 1 controleur a 
main cassettes Basic II Music 
Maestro bombardement concen- 
tration colorimage Ezdeit Moni- 
teur Biorthme. GONCALVES F 
1234 rue de Paris ECROUVES 
54200 TOUL. Tel. (8) 343.13.94. 

RECHERCHE Cable liaison ma- 
gneto K7 pour Tl 99/4A ou alors 
doc. pour la prise CANON 9 bro- 
ches et paire de manettes de 
jeux. Tel. dom. 793.94.59. Tel. bu- 
reau 790.63 74 poste 1187. 

POSSESSEUR de LASER 200 
cherche correspondant pour 
ec hanger programmes et idees 
EcrireaM. PERINETTI Richard 12 
rue Arago 82000 MONTAUBAN. 
Tel. (63)03.05.38. 

VENDS ordinateur de poche 
SHARP 1212 (Nov. 83) + 2 ma- 
nuels + 2 livres + revues Ordina- 
teur de poche : le tout 850 F (va- 
teur neuf 1.100 F). SOISSONG 
J.Michel 57510 ERNESTVILLER 
Tel. (8) 709.54.08. 

CHERCHE pour Tl 99/4A EXTEN- 
DED BASIC, Mini Memory, Cable 
liaison magneto, synthetiseur de 
parole, M. TARSITANOR. T<=>! 
3O5.90.73 a partir de 17 h. 



ACHETE cassette BASIC ETEN- 
DU TEXAS INSTRUMENT T199. 
Faire figurer frais de telephone ou 
dexpedition. GRASSET J.F 20ter 
rue d'Hautmont 59600 MAUBEU- 
GE Tel. : 65.69 97 

Programmeur chez SANYO Fran- 
ce. VENDS extremement urgent, 
SANYO PHC 25 (4/83) sous ga- 
rantie + Cable magnetophone + 
presque tous les programmes 
existantset meme inedits:1 800 F 
+ Synthetiseur PSG 01 + 2 manet- 
tes de jeu (8/83) presque neuf : 
600 F ou lensemble 2.300 F 
VENDS ZX 81 TRONIC + 16 Kmon- 
te dans boitier clavier mecanique 
DK TRONIC + TV M/2 bon etat 51 
cm + Alim. et cordons + Livres + 
Une cinquantaine de program- 
mes dont tous les classiques 
(Chess. II, QS Invaders, assem- 
bleur tyr. Resc. etc ) et certains 
inedits : HRG soft, compilateur, 
FORTH (avec manuel) le tout 
1.950 F. DESPLACHES Eric. 67 rue 
de la Fougeraise 78320 LEVIS ST 
NOM. 

VENDSORIC116K + magnetoK7 
+ K7 SPACE INVANDERS + livres 
et Programmes, le tout 1.800 F 
Yann AUGER 10 rue du Bois Petit, 
60250 MOUY Tel. (4) 426.29.91 
(apres 18 h). 



Directeur de la Publication - 

Redacteur en Chef : 

Gerard CECCALDI. 

Directeur Technique i 

Benoite PICAUD 

Rosponrabto Infocmatmuc : 

Pterric GLAJEAN 



Jean-Louis REBIERE 

Imprimene : 

DULAC et JARD1N S.A. 

1. rue Gay-Lussac. Zl N° 1. 

27000 EVREUX 

Editeur : 

SHIFT EDITIONS, 

27. rue du Gal-Foy 75008 PARIS 

Pubtvctteau journal. 

DMriMtaa hmpp. 

Commission pan t aire en cours. 
N°RC 83 B 6621 



CHOISISSEZ LE PROGRAMME 



^ Texas Instruments 



CONSOLES ET ACCESSOIRES : 

PHC 004ARGB/FR Ordinateui familial TT 99/4 ■ 
Modulateur PAL-UHF ■ 
Modulateur SEC AM 
Cable liaison magntfto-cassettes 
Paire manettesjeux ■ 
Synthetceur de parole 
Magnetophone cassettes a 



PHA 2036 
PHA2I0I 
PHA 2622 
PHP I I00 
PHP I 500 
PHP 2 700 

PERIPHERIQUES 
PHP 1 200 Systeme d'exiension penphenque • 
PHP 1 220 Carte nterfaceRS 232 ■ 
PHP 1240 Carteconiroleuidednguettea 
PHP 1 250 Unite mtegree de drsquette ■ 
PHP 1 260 Carte cTextension mev ■ 
(RAM) 32 K. 

Unit* de disquette externe ■ 
EDUCATION : 

PHT6I25/FR PGCD-PPCMa I 

PHM 3115 Addruon-Canon 59 

PHM 3114 Crocodile savant 58 

PHT6067 Basic par sot-meme 47 

PHM 3003 Beginning Grammar 5 

PHM 3082/7 Computet math games ■ 66 

PHM 31 16 Divrsion-dtfmolition 60 

Division I ■ 67 

Dragon Savant 6 1 

Early Reading 4 

Jem d'Entreprtse 65 

Meteor multiplication 63 

PHM 3 1 1 B Mission moms 62 

PHM 3029 MulUplicatJOn I ■ 3 

PHM 3020 Music Maker 44 

PHM 3004 U magw des nombr es ■ 6 

PHM 3050 Numeration I ■ 68 

Numeration la 69 

Le basic etendu par sot-meme a 48 
Tl-Logo la 70 

Introduction a la programmation Ia77 
Introduction A la ptogrammationila78 
Jeux en basic I a 79 

Jeux en basic la 80 



PHP 1850 



PHM 3049 
PHM31 17 
PHM 301 5 
PHT6018 
PHM 311 



PHM 305 1 
PHT6019 
PHM 3 109 
PHT6II6 



PHT61 19 

LOISlfH : 

PHM 3056 Aipiner 

PHM 3030 A-Ma^rHng a 



PHM 3033 
PHM 3054 
PHM 3 I : 



Blackjack and poker a 
Car Wars a 

Chisholm Trart 



T.TX. 

I 1 90.00 
743,00 
500.00 
150.00 
255.00 
680.00 
496.00 



66.00 
134.00 
134.00 

66.00 
134.00 
134.00 
134.00 
134.00 
134.00 
134.00 

66.00 
134.00 
134.00 
134.00 
188.00 
134.00 
134.00 
134.00 

66.00 
795.00 
1 19.00 
119.00 
119.00 
119.00 

(34.00 
134.00 

134.00 
134.00 

134.00 



PHM 3038 
PHM 3037 
PHM 3023 
PHM 3034 
PHM 3024 
PHM 3025 
PHM 3057 
PHM 3067 
PHM 3112' 
PHM 303 1 
PHM 3053 
PHM 3052 



Connect four 
Hangman a 
Chasse au Wump 

Football 
Jeux video II 
Munch Man a 
Othello 
Parsec 
The attack 
Ti-lnvaders a 
Tombstone city 



PHM 3008 Jeu d'echecs 
PHM 3018 Jeu video I 
PHM 3039 Yahtzee 

PHM 304 1 T Adventure a 

PHT 60 1 5 Jeux Retro I 

PUT 60 1 7 Jeux Retro I 
PROGRAMMATION : 

PHD 5001 Fichwr d'adresses 

PHM 3113 Microsoft Multiptan a 

PHT 6003 Cornell financier 

PHM 30 1 3 Gestion de fichiers 

PHM 30 14 Gestion de rapports a 

PHM 3014 Statistics a 

PHM 3055 Editor assembler a 

PHM 3076 Extended basic a 

PHM 32 1 8/FR Budget familial a 

PHT 6006 Aide a la programmation I ■ 

PHD S005 Programming aids I a 

PHD5012 Programming aids* a 

PHM 3035 Terminal Emulator I a 

PHD 5063 UCSD Pascal Compiler a 

PHD 5064 UCSD Pascal Unker a 

PHD 5065 UCSD Pascal Editor 

PHM 3212 Ti-Caki 

AUTRES LOGK3ELS : 

PHM 304/US Adventure module a 

PHT 6046/US AdventuietoTKJ 

PHT 6047/US Mission xtipossible 

PHT 6048/US Voodoo CastJe 

PHT 6049/US The count 

PHT 6050/US Strange Odyssey 

PHr6051/US Mrstery Fun Mouse 

PHT 6952/US Pyramid of Doom 

PHT 6053/US Ghost Town 

PHT 6054/US Savage Island I & II 

PHT 6056/US GokJen Voyage 



134.00 
134.00 
134.00 
134.00 
188.00 
134.00 
252.00 
188.00 
252.00 
134.00 
188.00 
134.00 

321.00 
134.00 
134.00 
134.00 
134.00 
134.00 



66.00 

375.00 
375.00 
188,00 
500.00 
500.00 
395.00 
66.00 
249.00 
249.00 
500.00 
1 132.00 
870.00 
695.00 
395.00 



66.00 
66,00 
66,00 
66.00 
66,00 
66,00 



TARIFS — 

AU 1/12/84 
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I 


I 


aCtdci 


il 




T.TX. 


VllCItO-ORDIN ATEURS : 




vlicrci-ordmateurs PAL 


2 I80.0C 


Ulicrci-cirdinateurs SECAM Integra 


3.650.0C 


VIONITEURS I 




vloniteur vert monochrome 


1.240.00 


Monrteur couleur tax an special commodore 


3.000.00 


PERIPHERIQUES : 




VIC 1530 Leaeur/enregistreur de cassettes 


390.00 


VIC 1541 Unite de monodisquefte 1 70 Ko. 


3.180.00 


ROM 1 54 1 Transformation d*un VIC 1 540 en 




VK 1541 


300.00 


VIC 1525 Impnmante grapraque 


2.500.00 


VIC 1526 ImprvnarvematricieleSOcol., 60cps. 




friction et traction 


3 250.00 


VIC 1 520 Imprimante plotter 4 couleuf s. 




1 0. 20. 40 OU 80 ( r i !r K if w -, 


1 790.00 


ACCESSOIRES : 




Mane he a balai [Joystidc| 


160.00 


AIDES A LA PROGRAMMATION : 




64/24201M FORTH 64 langage et editeur 




assembleur 


800.00 


64/241218 TCXX64 ; des commandes daide 




A la programmation 


640,00 


6V24601D MASTERK.4 I'outil de developpement 
PROGRAMMES FAMIUAUX. 


950.00 




EOUCATIFS ET SCIENTIr-rOUES : 




VIC50 


51 


MATH STAT 64 


535.00 



STAT 64 
GRAF 64 

GORTEK 64 autoformation au BASIC 
Autoformabon au BASIC (tome l| 
VIC RELAY 

DIARY 64 agenda electronkjue 
BUREAUTiaUE ET GESTION : 

64/23002M CALCRESULT 64 Advandec 
64/23000(8 CALCRESULT Easy 
64/23002D EASY SCRIPT 64 trartement de texte 
PROGRAMMES RECREAT1FS 
(sur cartouche) : 

64/2890 1 B JUPITERLANDER : atternssage 

d'un vaisseau spatial 

64/289028 KICKMAN un cyclrste Sur un v*lo 
a une roue ramasse des objets 
SEAWOLF la guerre maritime 
SPEED/BINGO MATH 2jeuxeducal. 

RADAR RATRACE des chats, des rats 

et des from ages 
64/289068 CLOWNS : attrape* les batons grace 

a une balancoire 
LOGKIELS DE JEU SUR CASSETTES : 
Burning Rubber 



64/241 I 18 
64/2 500 IB 
64/2500 !C 
64/251 01 C 
VIC 503 1 
64/2900 I B 



64/2890 3B 
64/28904B 
64/28905B 



■e Mutant Camels 



3D til 

Attack of tr 

Gridunner 

Rox64 

Escape MCP 

Fakacuda 

Centropods 

Renaissance 

Styx - Tank attak - Mangro 

Annihilator 

RNeSI 

Hoover bover 

Kra/y Kong 

'■■M.iinlilc 



Pan* 



irTrek 



490,00 
380.00 
415.00 
41S.00 
463.00 
490.00 

2.315,00 
I 1 30.00 
I 130,00 



215,00 

2 1 5,00 
215.00 

215.00 

215.00 

190.00 
190.00 
190,00 
190.00 
190,00 
190,00 
190,00 
190,00 
190,00 
190.00 
190.00 
190.00 
190.00 
190.00 
190.00 
190.00 
190,00 
190.00 
[90.00 
[90.00 
190.00 
190.00 
190.00 
1 90.00 
360.00 
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